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OCLC PROGRAM DOCUMENTATION 



I. Overview 

CNVT is the first step in the formatting and production 
of catalog cards to be sent to Members. For the online 
system, CNVT has as input the System Log tape froiri a day*s 
on-line operation. There are five possible types of records 
on the log tape, CNVT selects only Type 1 (produce) records 
for its processing; the remaining records serve as archive 
information. CNVT may also be run off-line to produce 
catalog cards as requested by card input from Members. The 
input fpr the off-line CNVT is the disk data base. The 
functions of CNVT in both the on-line and off-line modes are 
the same. 

The primary function of CNVT if^ to format the call 
number for each catalog card request according to the 
requesting Member's pre-determined specifications. To accomp- 
lish the individual format, CNVT uses a massive tree structure 
of information accessed by profiles, one profile per member 
holding library. Each tree structure has "leaves" which 
indicate the routines within CNVT necessary to process the 
call number and associated data for the Member. 

Secondary functions of CNVT include formatting of some 
user data and selective deletion of unnecessary data from the 
Type 1 record depending on the member profile. 

The output of CNVT is records on- tape which contain the 
formatted call numbers, user data, and the additional data 
necessary to format the catalog cards. 
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PROGRAM: CNVT 



II. DATA FLOW 

DATA FLOW CHART A 



FROM ) 
CAT / 








LIBRARY 




CODE 




CARDS 





CNVT ONLINE 

1. SELECT TYPE 1 RECORDS 

2. FORMAT CALL NUMBER 

3. FORMAT USER DATA 

M. DELETE UNNECESSARY DATA 



FORMATTED CALL NO's 
AND ASSOCIATED DATA 
FOR CARD PRODUCTION 



CARD 
PRODUCTION 
LOG 



PROGRAM: CNVT 



DATA FLOVJ CHART B 



SELECT 
CARDS 



DATA 
BASE 



CNVT OFFLINE 



1. READ SELECT CARDS 



2. SELECT RECORD FROM 
DATA BASE 



3. FORMAT CALL NUMBER 



FORMAT USER DATA 



5. DELETE UNNECESSARY 
DATA 



FORMATTED CALL NO's 
AND ASSOCIATED DATA 
FOR CARD PRODUCTION 




SELECT 
CARDS jF-OR 
RECORDS 



THAT WERE 
SELECTED FOR 
PRODUCTION 



PROGRAM: CNVT 
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III. SUMMARY OF INPUT AND OUTPUT 
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Record Layout 

File Name BIBLIOGRAHIC DATA FILE 
Record Name ARCHIVE TAPE RECORD LEAD ER 

Record Type - ( ) Card ( X) Tape ( ) Disk ( ) Other^ . 

IBM VARIABLE , ^. , . 
File Organization JLK_FORMA^Record SizeJOSO ^Block Sizejil30 

General n.c....- pti on Standard leade r on all archive tape records 



FIELD 



FIELD NAME AND DESCRIPTION 



VARIABLE BLOCK CONTROL WORD 

Lo gical Record Length 
Zeros 

RECORD TYPE CODE 

X'Ol' - PRODUCE 
X'02' - UPDATE 
X'0 3' - CA UPDATE 
X'lO' - KBD ADD 
X'll' - MDB REPLACE 
X'12' - MDB DELETE 

DATE OF TRANSACTION 



INSTITUTION CODE 
CATALOGER 



TUSlTiUN I LENtih 



0-1 
2-3 



5-7 

8-11 
12-15 



2 
2 



4 



FUKHAT 



Binary 
Binary 

Hexadecimal 



Unsirned packed 
decimal, YYMMDD 

EBCDIC right 
■justified, 0 filled 
EBCDIC left justifies 
blank filled 
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Record Layout (Cont) 

File Name BIBLIOGRAPHIC DATA FILE 
Record Name ARCHIVE TAPE RECORD LEADER 



FIELD NAME AND DESCRIPTION 



FIELD 



POSITION 



LENGTH 



FORMAT 



CLASSIFICATION: 0 or 1 = LC, 2 = DC 

TUBE NUMBER 

Logical tube number +1 

"FORCE UNIT CARD" FLAG 

"ADDED COPY" FLAG 

RESERVED FOR OTHER CCFP FLAGS 

NUMBER OF EXTRA CARDS 

RESERVED 



16-17 
18-19 

20(0) 
20(1) 
20(2-7) 
21 

22-31 



2 
2 

1 bit 
1 bit 
6 bits 
1 
10 



Binary 
Binary 

Boolean 

Boolean 

Zero 

Binary 

Zero 



in ,ii 



IBM 



I OUCRAMMING AND CHARTING WORKSHICT 



US- 
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U U ^ U — ET 



5>7£ C 



lA'^TZTiirz^^ (i&PE (t&cpzc ^ fr^HT 7usrzrii» ^ ?fvfd fill) 



X'0l 



- <r/* UPP/fTE 
'^PB SOP 
JIJHJiB PLACE 
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Record Layout 
File M^n,o pjpijr^r^p^PHTn T^ATA FILE — 
Record Name p^yi^ijor^RAPRjr R T^CORD 

Record Type - ( ) Card ( ) Tape (x) Disk ( ) Other _ 

File organization J^Ll^^i^Record Size^,.,^BlocK Size^^^ 
General Description n^t.r intprnal prorfiss-np format nf thp MARP TT 

n.-K^ .-o p..nhn r . Arr.r^ is PitW f^emiPnti rll OV rando m 




RE CORD LEADER 

Log ical Record Length 

Record Status Character (MARC 
Manual - Page ^6). 

Enco ding Level (MARC Manual - 
Page 57) 

Le>ider Length - byte size of 
leader including terminator 
(X 'FD') 

Type Index - index into' a table of 

Ma lu rial Type Indicator Codes 

(See Cataloging on a CRT 
Terminal - Page 32). Note that 
the zero entry is used. 



1 
1 



Upper 
4 bits 



EBCDIC 
Binary 

Binary 



i 
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Record Layout (Cont) 
File Name BTBLI OGRAPHIC DATA FILE 
Record ?Jame BIBLIOGRAPHIC RECORD 



Page 2 



f 

I 

L 



I 
I 
I 
I 
I 
I 
I 



FIELD NAME AND DESCRIPTION 



Bibliograph i c Level Index - index 
into a table of 'level codes 
(See Cataloging on a CRT 
Terminal - Page 32). Note that 
the zero entry is used. 

Reserved 

Variable Con- rol P^i eld Length - 
Word leng:h ot field between 
supplemen': number and suffix 
character in LC card number. 

OCLC Number 

Date Entere d 
Year 
Month 
bay 

Typ e of Publication Date - 



Description 
Publication 
MARC Manual 



of contents of 
Date fields (See 
pp. 32-31*). 



Publications 
Date #1 
Date 12 

Country of 



Dates 



characters 
MARC Manual 



Publication 



MARC 
pp. 3b, 



- First two 
field (See 
290-318) . 



Illustration Code Indexes - Four 
M-bit indexes into the table of 
Illustration code;; (See MARC 
Manual pp. 3S). Note that ':he 
zero entry is used to indicate 
an inval i d code was receiveU 
and trhat entry contains a 
blinking blank. 

* Packed data is numeric data 
which has had the upper four 
b.its of 'Moh nutn- rU removed and 
ha:; bccn ) lokod 1vk> dij^lt:; per byte, 



FIELD 

POSITION I LENGTH |fORMA£ 



6-7 



8-11 



12 
13 
14 

15 



16-17 
18-19 

20-21 



22-2 3 



Lower 
4 bits 



10 Bit 

Lower 
6 bits 



1 
1 
1 



2 
2' 



Binary 



Binary 
Binary 

Binary 

■ .-I- 
Packed* 
Packed* 
Packed* 

EBCDIC 



Packed* 
Packed* 

EBCDIC 



Binary 
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Record Layout CCont) 
File N;^me RTRLlOGRAPHIf^ DATA FILE 
Record ' Name BIBLIOGRAPHIC RECORD 



FIELD 



TTPT n MAMF AND DIZSCKIrTiUN 


POSITION 


LENGTH 


FORMAT 


Form of Content Code Indexes - foui 
4-bit indexes into a table of 
codes describing the form of 
work (See MARC Manual pp. 36-37] 
Note xnax xne zeio entiy *^uiilcixi 
a blinking blank to indicate an 
invalid code was received. 


s 


25 


2 


Binary 


Intellectual Level Index - index - 
into a table of intellectual 
xeve X cooes v e i iajvl^ i icui ucix 
pp. 36). Note the zero entry 
is used to indicate that the 
input code was invalid and con- 
tains a blinking blank. 




26 


Upper 
4 bits 


Binary 


Format Reproduction Code Index - 
Index into a table of codes 

Jama ■« Vv ■« « «^ +■ V% A i^rt /nil ^ ~« rtT" 

ue8criDing xne xype reprouucL-toi 
if any. Note the zero entry is 
used to indicate that the input 
code was invalid and contains a 
blinking blank. 




26 


Lower 
4 bits 

> 


Binary 


Indicators 10 thru 15 - bit 
switches to indicate the 
MARC indicators described in th€ 
MARC Reference Manual (pp. 37- 
38, par. 10-15). Bit values are 




27 


1 


Binary 


Bit 0 - REserved 

1S2 - Government Pub. Ind. 

3 - Conference Pub. Ind. 

4 - Festschrift Ind. 

5 - Index Ind. 

6 - Main Entry Ind. 

7 - Function Ind. 










Biography Code Index • index into 
a tabic of biography codes (See 
MARC Reference Manual pp. 33). 
Note that the zero entry cont- 
ains a blinking blank to indi- 




28 


1 


Binary 



cato an invalid code was 
received. 



I 
J 
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Record Layout (Cent) 
File Name B^MJOGRAPHIC DATA FILE 
Record Name BIBLIOGRAPHIC RECORD 



Page U 



FIELD NAME AND DESCRIPTION 



FIELD 



POSITION 



Modified Record Indicator Index - 29 
Index into a table of codes 
describing the type of cliange. 
Note that the zero entry 
contains the blinking blank 
character to indicate a code 
was received in error. (See 
MARC Manual pp. 38-39). 

Catalog Source Index - index into 29 
a table of codes to describe 
other sources of catalog records 
(See HARC Manual - page 39.) 
Note that the zero entry contains 
a blinking blank to indicate an 
error code was received. 

Language Index - index into a tabl^ 30-31 
of language codes to describe 
the text of the data. Although 
the codes are not arranged 
exactly as shown, see the manual 
" Catalog? ng on a Cathode Ray 
Tube Terminal" pp. 46-52. 

LC- Card Number 
Prefix 
Year Part 
Number Part 



Supplement number 

Length of Ist Author Stibstring 
The number of bytes to use for 
the first author substring 



Displacement of 1st Author Substrii i^U 2- 4 3 



Byte displacement to the .1st 
author substring from end of 
leader 



Packed data is numeric data 
which har; had the upper four 
bits of each nunieral removed 
and has been packed two digits 
per bytp. 



32-34 
35 
36-38 
39 

40-41 



LENGTH FORMAT 



Upper 
4 bits 



Lower 
4 bits 



3 
1 
3 
1 



Binary 



Binary 



Binary 



EBCDIC 
Packed* 
Packed* 
EBCDIC 

Binary 



Binary 
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Record Layout CCont) 
File Name ^^''''''"'^RTTnc;RAPHTr dat a rrfr 
Record Name pi RT.TOnRAPHTr Rrrn:;!n 



Page 5 



FIELD NAME AND DESCRIPTION 



FIELD 



POSITION ^.LENGTH FORMAT 



Ler pth of 2nd Author Substring 
The number of, by tes to use for 
the second author substring. 

Displacement of 2nd Author 

Substring 

Byte displacement to the 2nd 
author substring from end of 
leader 

length of Title Substring 

The number of bytes to use for 
the title substring. 

Displacement to Title Substring 
The byte displacement to the 
title substring from the end of 
the leader. 

Holdings File Pointer Word 
Pointer to holdings list. 

Institutional Holdings BitS' 

Bit switches indicating holdings 
for an institution. A one 
indicates holdings, a zero 
indicates no holdings. 

LG Suffix 

A variable length character 
string which may be absent. 
Displacement to suffix equal to 
UO + H^n where n equals the 
binary value of bits 2-7 of byte 
#7 of leader. Length of suffix 
is equal to the leader length, 
byte #4 , minus the displacement 
to the suffix minus one. 

Leader Te rminator 

X "FD" that follows the suffix ^ 
to indicate the end of the 
leader. 



U6-U7 



Binary 



Binary 



U8-U9 



50-51 



52-55 



56-71 



16 



Binary 
Binary 

Binary 
Binary 



Variable 



Varia ^^CDIC 
ble 



Variable 



Binary 



TTT.IO 

Record Layout (Cent) 
File Name BIPI.IQGRAPHIC DATA FILE 
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Record Name BI BLIP GRAPHIC RECORD 

S 



FIELD NAME AND DESCRIPTION 



FIELD 



VARIABLE FIELDS 

The following fields of the record 
are repeated for as many times as 
there are bib?iographic elements. 
The fields are variable in the 
data that^they contain and the 
length of each data item. The 
elements have the following format; 

Tag - element field descriptor 
number 

Element Length - length of 
element including tag. 

Sub fie Ids and Indicators - the 
remainder of the element 
fields are identical to the 
MARC format with the 
exception that the '$a' 
subfield code is deleted if 
this field is present and the 
data begins immediately 
following the indicators. 
*'lhe code is a X'FD' for ena oi 
subfield and X'FE' for end of 
record. 



These value arc the relative 
positions within the variable 
fields . 



POSITION 



LENGTH 



FORMAT 



0-1 
2-3 



2 

2 



Binary 
Binary 
EBCDIC 



* Packed data is numeric data 
which has had the upper four 
bits of each numeral removed 
and has Ibecn packed two 
digits per byte. 



TTT. 1 t 



IBM 
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I 

I 

t 

t 



Appiicati 



Drown ty :r. C ^ ^ t w ^ 



"Xi C £« ^ t» l^i !M U 



^> ii: ii» (M fi» [li ti# i ■• It* 



>£ii: 



i5 t S £ 1/ I> i Wc7»l5 utj>(t*Tff 



T 



16 



L2 





31^ 


1 Cot'A/r^ty OF 'P^h^i^AT :xo h/ 




















cr COS Fiti-D 




































36' 
























Lc^c»rM or 

















1 



I" 



IB^ DIACKAMMIHG AND CHAftTING WMKSHCCT 



Poge 



f roc«dur« . 



1 C C T 



Drown »y 1 ^ < , l - 



T» [^i C lo f^i ilT 



Wo«l1> i. op T/v^iTJ Tty-T-aOy^/xJi, llOiXiSiyjer, SlOztcHcS 



4o_ 



i2_ 



Of LGADeiV. 



IBM 



OSAGtAMlwiNC AND CHAtTING WOMKSMiCT 



Drown ly 



Procedure . 



T C C u ^ C ST 



II |ia III M Ut 



ret i ott^ V /tr "Pi^f i'3<?<;s FJ't ^<r»*i Ai^c^^ 7/^^ 



3. 



3 
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Record Layout 

File Name CNVT OUTPUT RECORD 

Record Name ^ 

Record Type - ( ) Card (X) Tape ( ) Disk ( ) Other 

Fi]t' Organization fJEQUENTIAL Record Size Zlu096 Block Size UNBLOCKED 

General Description 



FIELD NAME AND DESCRIPTION 




FIELD 




POSITION 


LENGTH 


FORMAT 










> 

RECORD LEADER 








PDT Number 


0-1 


2 


Binary 


Unit Card Indicator 


2 (bit 1 


)) 1 bit 


Binary 


Added Copy Indicator 


2(bit 1 


1 1 bit 


Binary 


Reserved 

Number ot Extra Cards 


2(bits 
2-7) 

3 


6 bits 
1 


Binary 


OCLC Number 


U-7 




Binary 


LC Card Number 


8-19 


12 


EBCDIC 


Reserved 


20-27 


8 


Binary 


Language Code Index 


28-29 


2 


Binary 



l\^ilowinr. tlio l^^ador aro the tar. fields. These fields 
variable in length and immediately follow riie previous 
:iold (or leader for the first element). Each is terminated 
.>v a delimiter (S' FD' or XTE' for the last element). Thev 
'ollow the basic MARC II format v;ith the following exceptions 



1. Tlie tap, itself is Binary 

2 . The field length is Binary 

3. i? (X'PC97'), *B (X'FC82'), or tC (a'FC83') within 
the call number field are used to indicate that a 
stamp is to be placed in that position relative 

to the call number. 



I 




TAC 



( Binary 



Lcnp,th of Field including 
tag and terminator 



6 



indicator 



indicator 
2 



DATA 

X'FC I.D. + DATA 



Field terminator 
X'FD' 



TAG 



DATA 



X'FE' RECORD 
Terminator 
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Record Layout 

File Namo CNV'JTDTS 

Record Name TBLA. BLOCK H\ 

Record Type - ( ) Card ( ) Tape (^) Disk ( ) Other 

File Organization KEYED ^Record Si 26 256 WQRDP lock Size^: ^^ •W07.DS 

Gener-'l Description Block HI of TBLA is prefixed bv the key tn TRT.B 

and the number of entries in TELA. . 



FIELD NAME ANP DESCRIPTION 



FIELD 



KEY TO TBLfi 

NO. LNTRIES IN TBLA 

TP LA, ENTRY #1 

TBLA, ENTRY /^..o5 



PUSiTiUN 



TETIUTH" 



Jr'URI-lAT 



1-2 

3-4 
5-8 

10 21-10 24 



BINARY 
BINARY 
EBCDIC 

EBCDIC 



111 . 1 8 



r 



j 



■ ■ 

■ ■ 
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Record Layout 



File Name CNVT! ^ 0T 3 



Record Name TBLA. BLOCK tin 

Record Type - ( ) Card ( ) Tape ( x) Disk ( ) Other 

File Organization KEYED Record Size 9fifi ypRn ftlock Size ?^^ wnpn<^ 



General Description a normal block of TBLA c^on^i^t^. <^tr>^nt^y nf 
256 library code entries, 



[ 
I 
I 
I 



FIELD NAME AND DESCRIPTION 



i 



FIELD 



LENGi'H 



FORMAT 



ERIC 



TBLA, ENTRY §7^6* KEY# 



TBLA, ENTRY llf(511''- KEY#) + 

KEY #-l 



1021-102U 



EBCDIC 



EBCDIC 



I I L . 19 



■ a 



liQ nhn pnllnnn hlif^rv po'ilof 

tlu UttiU bahUtiu liljiUn bukjiul 

1311 imm \i colooiiiii. ob - Wl 



Record Layout 



File Name rMVTPDTS 



Record Name trt.H, RI.nrK tfl 

Record Type - ( ) Card ( ) Tape ( x) Disk ( ) Other 

File Organization KEYED Record Size 2 56 WORD Block Size 256 WORDS 

General Description Block #1 of TDLB is prefixed by the key to 

P DTTBL . Th e halfword TBLB entries follow the key. 



FIELD NAME AND DESCRIPTION 




FIELD 




PUSITIUN 




FURHAT 


KEY TO PDTTBL 


1-2 


2 


BINARY 


TBLB, ENTRY, Hi 


3-4 


2 


BINARY 


• 


• 


• 


• 


• 


• 


• 


• 


• 


• 


• 


• 


TBLB, ENTRY, #511 


1023-1024 


2 


BINARY 
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Record Layout 

File Name CMVTPm'S 

Record Nniae tblb. BLOCK #N 

Record Type - ( ) Card ( ) Tape ( x) Disk ( ) Other 

File Organization KEYED Record Size 2 56 WORD Block Size 256 WORDS 

t . 

General Description A normal block of TBLB consists strictly of 

512 halfword index entries to PDTTBL 



FIELD NAME AND DESCRIPTION 



FIELD 

PUSITIUN I — LENGTH — I — FUKMAT 



TBLB, ENTRY #S17-'' KEY# 



1-2 



BINARY 



TBLB, ENTRY #( 102 3'- KEY*) + 

KEY#-1 



1023-1024 



BINARY 



r 



Hi .21 



• • • • 

• • • • 
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Record Layout 



File Name rNVTPDTS 



Record Name PDTTBL. I^LOCK #U 

Record Type - ( ) Card ( ) Tape ( x) Disk ( ) Other_ 

File Orp.anizaLion KCYED Record Sizc ?sfi wnRD ^lock Size 9c.(^ WORD R 

General Description a hior-if of pn -rTRi. onn-h^-inc ^ nnmhpr' — 
9f PHT Riihtahles. 



FIELD 



FIELD NAME AND DESCRIPTION 


PUSITIUN 


LENGTH 


FUKMAT 


LIB #1 SUBTABLE 








Cycle 


1-2 


2 


Binary 


Brown 


3-4 


2 


Binary 


Blue 


5-6 


2 


Binary 


Yellow 


7-8 


2 


Binary 


Red 


9-10 


2 


Binary 


Green 


11-12 


2 


Binary 


Lit 


13-m 


2 


Binary 


PDTiH 


15-16 


2 


Binary 


Oversized 


17-18 


2 


Binary 


Tag Handler #1 

• 


21-24 


4 


Binary 


* 

Tag Handler UK 


K-K+4 


4 


Binary 


End of Table Indicator 


K + S.K+6 


2 


-1 


No. of Parameters (L) 


K+7-K+8 


2 


Binary 


Parameters 


K+9LK+g+: 


L-1 2L 


Binary 
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J V. rUNCTIONS 

CNVT reads any librarv code cards that are input and 
builds the table LI3SIN to control production of catalog cards 
for only these Mjiiibcrs. li no library code cards are input, 
LIBSIN is initialized with itn number of entries equal to zero. 
CNVT then begins normal processing. It reads a record from the 
daily system log tape and interrogates the record type in the 
archive record leader. If the record type is 01, the total 
number of selects is incremented by one and card production 
begins. If the record is a type other than 01, the next record 
is read. 

The Library of Congress card number is picked up from 
the selected record and is stored in a location called 'LASTLCCN' 
The institution code is stored in a location called 'LIB'. 

A Link Directory is built by branching to the program 
I LINK'. In thio directory there are several rabies. 'LNKTAG' 
is a table of tags; 'LNKBA' is a corresponding table of byte 
addresses and lengths of each of these fields. Therefore, in 
order to find the byte address and length of any field, a search 
Is performed on the table 'LNKTAG' until the tag is found. This 
search will produce an index into the table 'LNKBA', where the 
byte address and the length of that field are to be found. 

After the Link Directory has been built, the 0M9 field 
is found. Anything within brackets in this field indicates 
a stamp and is moved to the location 'STAMP' . The first thr^e 
unbracketed characters indicate the cataloging library and are 
moved to the location 'LIB'. If there is no 0*49 field, the 
insititution code which was previously stored at 'LIB' is used 
as the cataloging source. If this library code is not in the 
list of libraries to be processed, in cable 'LIBSIN', the 
record is counted as rejected and the next record is read. If 
there are zero entries in LIBSIN, all libraries may be processed. 

A table, called 'TBLA', of default tag processors is 
built, nach tag with its corresponding processor is pulled from 
a stack and stored in the table. Then^ the options in the 
program |RI:ADPDT's' are read. If there are any special tag 
options indicated, the processor 's picked up from the table 
'TBLAOPTS'. 'TRLA' is modified based on this information from 
'KLADrDT's' and the two processors are exchanged. Each field 
is then processed according to these 'TBLA' options. If the 
field is to be deleted, its entry in the Link Directory is 
deleted . 

The root number is retrieved from READPDTS and this is 
used as an index into 'NODETBL' to find the appropriate tree. 
The first element in the argument field of the 'NODE' instruction 
indicates the number of entries in the tree and the second 
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lomon t: IivJ lontes where to 3 tart getting the entries . These 
.Mitricr. are rtored in the st^ck 'CSTK'. If there is a 'NODK' 
in the troo, it is expatidod and these entries replace the 'NOD^' 
in the stack. If thor.3 is a 'TEHT' in the tr.^e, the loop 
switch l:, t'(?sted. For each 'TKST', there ar^^ two alternative* 
IJ:Ar's or N()lJ]:':>. [f the switch has boon sot, the first alter- 
ual'Ivo is, pusho-d into tlic stack. if the switoh is not set, the 
..t^cond allornativo is> pu.3hcMl into the stack. 

["iach 'LIIAf' entry in the stack is processed in sequence 
utnil a 'NODi:' or 'TEST' is encountered, at which time the 
appropriate replacement routines are pushed into the stack. 

The first number in the argument field of the 'LEAF' is 
an index into the table of routines called 'EXUTBL', where the 
address of the routine is loaded into R7 . For the routines 
3:U001 - 3:1!087 , the address of the Format Control Word (FCW) 
is also loaded into R6 at this time. 

The second number in the argument field of the 'LEAF' is 
used as an indicator within the routine and is always passed 
to the routine in R3. 

A branch is performed through R7 to each routine in the 
stack in sequence. jpon return from the routine, all registers 
are cleared and the address of the next routine is retrieved from 
the table. When the stack is empty, the next record is read 
and processed. 

In order to save the contents of a register when going from 
one routine to another, its contents are stored in a core image 
location called 'KEGx + 16' where *x' is the register number. 
Through most of the proo^^ssing Rl , R2, and R3 are saved in this 
manner. Rl is used as an index to the temporary call number 
field; R2 has the complement of the call number width; and R3 has 
the byte address of the source of the unformatted record. 

The call number formating routines basically take each 
clement, one at a time, format it and move it to an area called 
'09nT' whicli is a temporary call number field. From here, it is 
moved i n its completed form, along with stamps and oversize 
symbols, if any, to an area called *FIELD2'. The elements of 
the call number and their corresponding numbers are: 



1) LC alpha prol^ix A A 

2) Classification-numeric portioji NNN 
? ) Classif i cation-decimal portion . NN 
U) PLrst da to liNNNA 
b) lirst cutter ANN 

6) Second date NIINNA 

7) Second cutter ANN 
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The sequence of the routines in the tree follows a 
pattern. The fiist routine is always a set-up routine. If 
any element or elements are to be suppressed, the routine to 
do this must pt^ecede the routine to process the suppressed 
element. If any stamp or symbol is to go in the left margin, 
the call number width must be decremented before any element is 
procest>ed . 

If no elements are to be suppressed and nothing is to 
go in the left margin, the next seven routines, after the 
initial set-up, will process each element, one at a time. 
For a Dewey call number, the routine to process the first 
element is absent. 

The next routine will usually be 3:U008 which will process 
any other elements. 

The next routines alter the elements have been formatted, 
are the routines to set up and move the user data to 'FIELD2* 
and link FIELD2 to the call number field. The routines to create 
extra cards are also found here. The next set of routines 
determine the arrangement of the three stamps and the oversize 
symbol in relation to the call number. These routines move 
the stamps, the symbols, and the call number to *FIELD2* in the 
order in which they will appear on the card. 

The last four routines are the same for every set-up. 
The first routine, 5:U999, provides for holdings. The last 
three will ] Ink *FIELD2* to the rest of the record (4:U999); 
provide ior the card to be produced (X:UOOO); and log it as 
liaving been selected (X;U001). 

For the off-line CNVT, the functions arc basically 
the same. Hie table LIBSIN is built from any .library code 
cards input. CNVT then reads a member select card and accesses 
the disk data base for the records necessary for card pro- 
duction. The member select cards are .color keyed depending 
on their function. A description of the color codes ^f select 
card input is given in Appendix B, Operating Characteristics. 

-f 

After the select card is read and the records for 
card production are obtained from the data base, card production 
proceeds the same as for the online system. As each set of 
cards is produced by the offline system, a card is punched 
whicli contains the unpacked Library of Congress card number and 
the library code. These cards are used to eliminate from 
the input cards, those cards which were selected for production. 
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SOFTWARE INTERFACE 

A. Linkage - Background linkage with OBM 

B. Parameter List Description - none 

C. Return Codes - none 

D. Other Entry Points - none 

E. OCLC Subroutines Referenced - 
READPDT (Alternate EP, READPDTl) 
NODETBL 

CBIEB 
READSC 

PUNCHSC (Alternate EP, CLOSESC) 

LOCKS G 

READMAST 

TAPE 10 

FMTREC 

TAPEIO 

. LINK (Alternate EP's, LINKDLT, LINKINST) 
LCCNOOO (Alternate EP's, LCCNOOOB, tCCNOOOD) 

F. OCLC Procedures Referenced 
WRTMSG 

WRTSELD 

WRTMISS 

WRTEJECT 

PUN CHS LD 

NOTE 

ATBL 
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VII. DESCRIPTION OF SPECIAL STORAGE AREAS, SWITCHES, AND TABLES 
A. Special Storage 

FORMAT nONTKOF, WORD ( FCW) - a wor^H ^ ^ 

Of the different ways an%'S^n^^ &¥^l\S?.a!>f ^» 
of Congress call number may be formatted on a cata- 
log card. Provides a mask to direct the formatting 
of the LC call number. A sample FCW follows: 

FCW025 FCW^ XUTO0:2,XUTMl:2,2,5,3,0,2,0 
with each field comprised of the following 
number of bits: 



8,8,2,6,2,2,2,2 

The first 8 bits are an index into UTOOTBL to 
determine which 'UTOO' move routine to use. 

The second 8 bits serve as an index into the 
same table 'UTOOTBL' to determin. which 'UTMl' 
move routine to use. The next 2 bits indicate 
whether or not this element must be present. 

=2 - - - need not be present 
=3 - - - must be present 

The next 6 bits give the element number of the 
call number. 

The next 8 bits (4 bytes) determine the follow- 
ing options : 



Bits 0-1 00 NOOP 

01 Start a new line if previous 
element was 4 or 6 

10 NOOP 

11 Start a new line 

Bits 2-3 00 NOOP 

01 Supply a blank 

10 Supply a decimal 

11 Supply a new line and a blank 
if the element will not fit 
on previous line 

Bits H-S 00 use UTOO Routine (Move) 
01 if blank first, use UTMl 
Routine (delete) 

10 if decimal first, use UTMl 
Routine (delete) 

11 if blank or decimal first, 
use UTMl routine 
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Bits 6-7 00 NOOP 

01 NOOP 

11 NOOP 

IL Force next element to new line 

These 8 control Bits are processed in the following 
sections of the routine 3:U0XX respectively; PHI, 
PH2, PH3, and PHU . 

Therefore, for the FCW in the example, the element 
of the call number would be processed as follows: 
It would use the second UTOO move routine and the 
second UTMl move routine. This is element number 
5 (first cutter) and it need not be present. This 
element will star- a new line, and if it begins 
with a decimal, the decimal will be deleted. 

PROFILE DEFINITION TABLE (PDT) • a table defined for 

each member holding library which describes that libr- 
ary*? specifications for formatting the call number 
and formatting or deleting user data. The items of 
information in a PDT include 

1. A three digit holding library code. 

2 . A PDT number which is used by the following 
format program in the processing sequence (CCFP). 

3. The cycling period, which is the number of 
weeks the data base will be searched for a 
Library of Congress Card Number before the 
request is returned to the user (offline 
system only) . 

4. A table of indexes into the roots of the 
table NODETBL, one halfword for each color- 
coded card (see CNVT - Appendix B, OPERATING 
CHARACTERISTICS, Parameter Cards Required). 
In the offline mode, the index in the color 
branch table indicated by the color code on 
the input -request cards is used for process- 
ing. For online processing, the index for 

a blue card is always used. 

5. A table of tag numbers and the number of a 
special processor for each tag. 

6. The call number width 

7. The number of the oversize routine for this 
library. 

8. Any parameters needed for processing this 
holding library including oversize parameters 
and parameters for specific internal sub- 
routines . 

The PDT*s are defined in three tables on a direct 
access device. The tables are generated by the 
program J . CNVTPDTS, and accessed in CNVT by the 
subroutine READPDT. 
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None 

Tables 

OSIT • An indexable table of oversize routines. 
The index into the table is REO . 5 which is the 
number of the routine picked up from the program 
'READPDT's'. A branch is taken from OSIT to the 
appropriate oversize routine. 

EXUTBL - An indexable table of routines. The 
index into the table is R2 which is the first 
entry in the argument field of the 'LEAF' in- 
struction. For the routines 3:U0X1 - 3:U0X7, 
the byte address of the format control word 
(FCW) is loaded into R6 and the address of the 
routine, SzUOXX, which will format each element 
is loaded into R7 . The instruction: B 0 , R7 
will effectively cause the processing program- 
to continue at the appropriate routine. 

OSIS - A table of oversize symbols. Each symbol 
is identified by number. The first byte of 
eaoh of the fields is the length in bytes of the 
syntbol +5 to account for 2 bytes for the subfield 
code (FCSl), 1 byte for the end of field delimiter 
(FD), and 2 bytes for the sort skip characters on 
either end of the symbol- [0 (zero)]. 

TELA - A table of default tag processors. The 
default processors are pushed into a stack called 
'TBLASTK'. 'ITBL' is used to pick up the tag 
number and the processor in 'TELA' . After the 
PDT's have been read, any tag that is to have a 
special processor is replaced in 'TBLASTK' and 
all the processors are put back into TELA. 
TELASTKl and TELASTK2 are used as stack pointer 
doublewords. #1 is used to fill up the stack; 
#2 is used to empty the stack. For each entry 
in TELA, the argument field contains the tag 
number followed by the address of the routine 
required to process that field. 

TELAOPTS - A table of special tag handlers. The 
tag number and the index into this table are picked 
up from, 'READPDTS' . These are the processors which 
will replace the entries in T3LA. 

STAMPS - A table of stamps, each of which is set 
up in the Game manner as entries fo.-^ the table 
'OSIS' . 
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STOPLIST - An alphabetical list of words and 
abbreviations. It is used to reduce the 
cataloging source field to 22 characters by 
abbreviating commonly used words and phrases. 

CALL NUMBER BREAKDOWN CONTROL WORD (BRKCW) a word defined 

for each way a call number may be set up for formatting. 
BRKCW provides parameters for the call number set-up 
routine (3:11000). A sample BRKCW is: 

BRKCW 1,45,1 

where each field is composed of the following number 
of bits : 

8,8,16 ^ 

The first 8 bits in the example devote the type of call 
number 

H " L.C. ciCl-number 

1 - Dewey call number 

2 - Medical library call number 

The next 8 bits are the call numfcer length of first line. 

0 - default to CNWIDTH 

7 - Dewey, short first line 

45 - long first line 

The final 16 bits are an index to a brance table to 
entry points in the call number parse subroutine LCCN05'3 

0 - LCCNOOO 

1 - LCCNOOOD 

2 - LCCNOOOB 

In the example a set-up for /a Dewey call number with 
a long first line is desired. The entry point in 
LCCNOOO is to be LCCNOOOD. 
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APPENDIX A 
OPERATING REQUIREMENTS 

1. Computer - Xerox Sip^ma 5 

2. T/0 Devices - Two 800-BPI tape drives, line 
orinter, card reader/punch 

3. Operating System - RBM/OBM 

4. Execution Time - average 10 minutes clock 

5. Run schedule - daily 

* 

6. J[ob Control Language 

a. ONLINE 

I JOB OCLCjCP 

! RUN RP,IMG002A El 

I PAU - - MOUNT PRINT TAPE ON 'oSl', RING IN 

I RUN BP,IMG002A Fl 

• RUN BPjONCNVT 

I Library Codes (optional) 
I FIN 

b . OFFLINE 

I JOB OCLCjCP 

I PAU — EAC V 

• PAU — SYC 
I ATT 

I RADEIT 

I ALLOT (FILE,D3,SCARD), (FSIZE,1000 ) , 

( FORMAT, C) 
I ASS (F:SIN,CR) 
I ASS (F:S0UT,D3 ,SCARD) 
I POOLl 

• SORT F,80,,,A,12,3,A,W1,W2,A,9,3, 

A,19,1,A,15,H,A,21,1,A,20,1 

J SELECT CARDS 

I PAU RK/.DY CNVT OUTPUT TAPE ON Tl 
I RUN BP, CNVT 
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APPENDIX B 



OPERATING CHARACTERISTICS 

1. CONSOLE MESSAGES 

I'.PAU — MOUNT PRINT TAPE ON '081', RING IN 

RESPONSE: Mount taoe as directed 

2. PROGRAMMED ABNORMAL COMPLETION - CNVT will terminate 
abnormally via a 

CAL1,9 3 

instruction under the following conditions. The 
message printed out to signal the abort is included 
in each case. 



MESSAGE 

'***CNVT CONTROL CARD ERROR- 
CHECK DECK* 



'E3 DATA BASE READ ERROR' 
»*****PROGRAM ABORTED***' 

'E8 UNABLE TO WRITE FORMATTED 
RECORD' 

'E18 NODE TABLE ERROR' 
»ft**ft*PROGRAM ABORTED***' 



'E19 CONTROL STACK OVERFLOW 
fft*ftft*pROGRAM ABORTED***' 

DIAGNOSTICS 

MESSAGE 

E2 SELECT CARD READ ERROR 

E3 DATA BASE READ ERROR 
E4 PDT READ ERROR 
E5 UNABLE TO LINK FIELDS 
E6 UNLISTED FIELD TAG 



REASON 

Three possible reasons 

1. Table size is negative 

2. Control card read error 

3. Exceeded table length 

Unable to read data 
base record 

Unable to write on 
output tape. 

Either less than two 
branches or more than 
thirteen branches were 
found for a single node. 

Control stack has over- 
flow condition. 



ACTION 

Card is counted as re- 
jected. 

Program is aborted. 
Select card is rejected 
Select card is rejected 
Select card is rejected 
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MESSAGE 

E7 UNABLE TO BUILD FORMATTED 
RECORD 

E8 UNABLE TO WRITE FORMATTED 
RECORD 

W9 EOT ON FMT OUTPUT TAPE 

ElO ILLEGAL TAG IN DATA BASE 

RECORD 
*****PROGRAM ABORTED*** 

W12 OUTPUT FMT TAPE WRITE 
PROT 

W11+ **CAN'T DO** 

W15 ILLEGAL COLOR CODE 

W16 INVALID 0 50 INDICATOR 

W17 IMPOSSIBLE TO FORMAT 0 50 
FIELD 

VT STAT SUMMARY 

VT NORMAL END 

E18 NODE/TABLE ERROR 

E19 CONTROL STACK OVERFLOW 

** CNVT CONTROL CARD 
ERROR— CHECK DECK 



ACTION 

Select record rejected 

Program has aborted 

Go to end of file routine 
Select record rejected 
Program has been aborted 
A retry is initiated 

Select record missing; 
counted as rejected 

Select record rejected 

Select record rejected 



Program has aborted 

Program has aborted 

Check input cards for 
possible errors 
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■ 



VIII. 6 

PARAMETER CARD DESCRIPTION 
(ONELINE OR OFFLINE) 

the oliio college libfa 

1314 kifliieaf fl - 





- 43212 



■ ■ ■ 

■ ■ ■ 

Record Layout 

File Name CNVT CONTROL CARD INPUT 
Record Name CNVT CONTROL CARD 

Record Type - ( X) Card ( ) Tape ( ) Disk ( ) Other 

File OrganizationSequential Record Size ^0 Block Size UNB LOCKED 



General Description Control cards contain two-digit library codes 

to control selection of records for card production. Card 

input to CNVT is optional. 



FIELD NAME AND DESCRIPTION 



FIELD 



PUSlTiUN I LENGTH 



JrUKMAi 



LIBRARY CODE 1 
LIBRARY CODE 2 



LIBRARY CODE n 



1-2 
3-U 



2 
2 



n-n+1 



EBCDIC 
EBCDIC 



EBCDIC 
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(OFFLINE) 

the oliio college libfary ceoter 

1314 kioneai fd. - coMus ohio - 43212 

Record Layout 

File Name SELECT CARD INPUT ^ 

Record Name SELECT CARD 

Record Type - ( » Card ( ) Tape ( ) Disk ( ) Other 

File Organizatior Seauential Record Size 80 ^Block Siz qjNBLOCKFr) 

General Description Select cards are input to CNVT OFFLINE to 

initiate production of sets of catalog cards by Library of 

Congress card numbers . 



FIELD NAME AND DESCRIPTION FIELD 





PUSiTiUN 


LL'NtlTH 


FUKHAT 


L.C. CARD NUMBER 
HOLDING LIBRARY CODE 


1-3 
4-11 
12-14 


8 
3 


BLANK 

EBCDIC 

EBCDIC 


COLOR CODE* 


15-18 
^9-19 


1 


BLANK 
EBCDIC 


WEEK CODE 


20-21 
22-22 


1 


BLANK 
EBCDIC 


0-8-2 PUNCH DENOTES FIRST 


23-25 
26-26 




BLANK 


VARIABLE LENGTH FIELD 








+ DENOTES EXTRA CARD 








COPIES DESIRED 








•Irf' BLANK DENOTES END OF CARD 
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SELECT CARD Ccont.) 

* Each user input card is color keyed as to its function. 
Color Code Function 

Brown 1 Input modifications to LC 

descriptive cataloging 

Orange 2 Input holding statements 

Blue 3 Request cards with LC 

call numbers 

Yellow H Request cards with local 

call numbers 

Red 5 Request unit card with Dewey 

class number 

Green 6 Request unit card with LC 

call number 

Green Lit 7 Request unit card with 

alternate LC call number 
or class number 

Beginning in column 2 7 of the select card are a series 
of variable length fields. Each field is preceded by a 
special character which indicates what type of data follows. 
The fields are delimited by a 0-8-2 :.jncn. The last field is 
followed by a vertical bar (| ) indie, ting the end of the 
select card. If more than one card is required, the data 
may be continued in column 1 of succeeding cards. 

n _ 



FIELD 
INDICATOR 



DATA 



INDICATOR TYPE OF FIELD 

+ NON-PDT STAMP 

11-PUNCH COPIES 

= USER DATA 

* .' CALL NUMBER * 

* The call number appears on the select card formatted as the 
user requires it on the finished catalog card. Tht punctuation 
desired must be included. A new line indicator (^) must also 
be included before the first character of each new line of the 
call number. 
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5. EXAMPLE OF OUTPUT 



VIII. 10 
OFFLINE CNVT OUTPUT 

the oliio college librafy ceotef 

M hmu\ \i - colymbus fliiifl - 43212 

Record Layout 

File Name CNVT PUNCHED OUTPUT 

Record Name CARD SELECTED FOR PRnniir TTDM 

Record Type - ( x) Card ( ) Tape ( ) Disk ( ) Other 

File Organization reqiienttal Record Size an B lock Size iiNRT.nCKED 
General Description A card entry of sixteen bvtes is punched for eaah 
4nput select card for which catalog cards are produced. 



FIELD 



FIELD NAME AND DESCRIPTION 


PUSiTiUN 


LENGTH 


FUKMAT 


L.C. CARD NUMBER #1 


1-11 


11 


ALPHA-NUMERIC 


HOLDING LIBRARY CODE #1 


12-14 


3 


ALPHA 




15-16 
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2 


BLANK 


L.C. CARD NUMBER #5 
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65-75 


11 




HOLDING LIBRARY CODE #5 


76-78 


3 






79-80 


2 


BLANK 
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DETAILED DESCRIPTION OF INTERNAL SUBROUTINES 
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PROGRAM: CMVT 

VIII .m 



LtLlOOl ThJi: routine plants the series field but does not 
trace it. R3 is set and is stored in the Link 
Directory - Tags. A branch is taken to 'Ai:ND' which 
will keop track of the last entry and point to the 
next cntrry in the directory. 



1:U00? This routine is a special processor of *TBLA' options 
for the 600 fields. The byte address and the length 
of the field are picked up in RU and R5 from *LNKBA'. 
R4 is used to pick up the second indicator of the 
field. If the indicator is 0 (zero) a branch is 
taken to 'AEND' to keep the field. If the 2nd 
indicator is 1 Cone), a bit is set in 'LNKTAG' and 
a branch is taken to *AEND' to keep the field but 
enclose it in brackets. If the indicator is not 
0 or 1, a branch is taken to *ADEL' to delete the 
field from the directory. 



1:1100 3 This routine is a special processor of 'TBLA' options 

for the '600 fields. The byte address and the length of 
the field are picked up in RU and R5 from 'LNKBA'. 
R4 is used to pick up the second indicator of the 
field. If the indicator is 0 (zero) or 2 (two) a 
branch is taken to 'AEND* to keep the field. Other- 
wise a brance is taken to 'ADEL' to delete the field 
from the directory. 



1:U004 This routine is a special processor of 'TBLA* options 
for the 600 fields. The byte address and the length 
of the field, are picked up in R4 and R5 from 'LNKBA'. 
RI+ is used to pick up the second indicator of the 
field. If the indicator is 2 (two) a brance is taken 
to 'AEND' to save the field. If the indicator is 
not 2, a branch is taken to 'ADEL' to delete the field 
from the directory. 
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3:U000 This is the routine that does the housekeeping prior 
to formatting the call number. At entry, R3 is the 
sub-script from the 'LEAF' instruction which indi- 
cates which type of formatting to use: 

=0 LC, short first line 

=1 Dewey, long first line 

=2 LC, long first line 

=3 LC, special, short first line 

=U Dewey, shrot first line 

= 5 Medical , short first line 

Upon entry to the routine 3:U00O, the type of library 
is checked in the Break-down Control Word (BRKCW — 
see page VII ,4) If it is 0 (L.C. c--ill number) , the 
090 field is checked. If present it is used as the 
call number. If not present^ the 0 50 is checked. 
If present, it is used as the call nunber ;-if_Jiot , 
a unit card is forced. The first lin« length of the 
call number is set up. If the length in the BRKCW 
is zero (0), then CNWIDTH (from the PDT) is used. 
Then control is transferred to the appropriate parse. 

If the library is Dewey (type 1), the 092 field is 
checked. If present, it is used as the call number. 
If not present, the 090 is and then the 050 fields 
are checked. If none of these fields are present, 
a unit card is prxDduced. 

If the library is a medical library (type 2), the 
096 field is checked first. If present it is used 
as the call number. If not present, the 060 is 
checked. If present, the 060 is used as the call 
number. If neither the 096 or 060 is present, the 
090 and then the 050 are checked. If none of these 
fields are present, a unit card is produced. For an 
off-line request card, only the 0 50 field is used. 

After the appropr5.ate call number field has been 
found, R2 and R3 are loaded with the byte address 
and the elngth respectively from'LNKBA'. If the 050 
field is used and the book is not LC and there is 
no subfield 'fc', a unit card is produced. 

R8 is loaded with the address of a two-word parm list 
called LCCNOOOP. The first word is the byte address 
of the beginning of the call number field. The 
second word is the byte address of a work area in 
which the parsed call number will be returned. R7 
is then used as the linking register to the app,ro- 
priate entry point in the call number parse routine, 
LCCNOOO. 
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REG! J REG2 , and REG3 are then set up to begin ior- 
matting the elements of the call number. RE^l is 
set to 0 to indicate the index into the call number 
field. REG2 is set with the negative call number 
width. REG3 is set with the byte address of the 
call number field (LCCN WRKA) 

The first byte of the call number field will be the 
element number of the first element. If this is not 
0 (zero), a brance^is taken to RETURN. Otherwise 
REGU is loaded with the element number (0) and R7 
is used to store a new line character (X*5F*) at the 
beginning of the temporary formatted call number 
field (090T). R7 is used as the linking register to 
LCCNUTOO to move element 0 to the 090T field. LOOPSW 1 
is set with a 1 (one) if element 0 was present. 



U009 This is a special *end and link* routine to be used 
when the routine 3:U008 (Format Remaining Elements) 
is not used. It is used specifically when the call 
number consists solely of an element 0 and all other 
elements are to be suppressed. This routine closes 
the 090T (call number field) with an end of field 
delimitei' (X*FD*). The routine also increments the 
record length (090T-1) by 1 to account for the de- 
limiter. A branch is taken to U:UOOOB to store a 

into the second half-word of FIELD2 (formatted 
call number field), since the call number is now 
complete and ready to be moved to FIELD2* 
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3:U0X1 - 3:UOX7 These routines set up the format control 
word needed to process each of the first seven 
elements of the call number. A branch is raken to 
routine 3 : UOXX after the *FCW' has been set up. 



3:U0XX This routine is used to format elements 1 through 7. 
Processing gets to this routine from the *EXUTBL* 
with a "LD,R6" (six) instruction, which will load 
R6 with the byte address of the *FCW* (Format Control 
Word) and will load R7 with the address of this routine 
R6 is used to pick up the bits from the *FCW* . 
The 8 Control Bits of the FCW are processed in the 
following sections of this routine, respectively; 
PHI, PH2, PH3, and PHH . 

R8 is set up in tliis routine. R8 acts as an indicator 
to determine which type of spacing to use in the 
UTOO move routine. 



3:U008 This routine is used to format all remaining elements 
numbers 8-25H. If R3, the sub-script of the *LEAF* 
instruction, is set = 1, every element is preceded by 
a blank character in the left margin. R12 is used as 
a working register to save the value of the. sub-script , 
R2 and R3 are set up with the negative call number 
width and the byte address of the source, respectively. 
R7 is used as the linking register to branch to 
2 sub-routines within this routine. The sub-routines 
are *NLT* and *NL* which check to see if the element 
will fit on the previous line, and provide a new line 
character, respectively. They both use RIH as a workin 
register. R15 is used as a working register to pick up 
characters and check element numbers. R13 is used 
to make soire that no element is tried more than 3 
times. R7 is used as the linking register to branch 
to a call number move routine. 



3:XQ01 This routine will create an extra non-PDT stamp 

* Campus* for two holding libraries for Robert Morris 
College. The stamp is provided if there is a parameter 
of *1* provided in READPDT*s. If the parameter is 
zero, the stamp is not provided. Rl is used as a 
working register to test the parameter which has been 
previously set up in *PDTPARMS*. Rl, R2 , and R3 are 
loaded with the size, the subfield code, and the 
stamp. These are then stored *at the location * STAMP'. 
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3:X002 Tliis routine is a special processor for class 'PZ' 

books. This routine is used in the tree as the processor 
for the 7th elcme^nt (2nd cutter). R15 is set up 
with the letters' 'PZ' and R7 is used as the linking re- 
gister to OSIUOl, the class check routine. R3 (sub- 
script indicator) is set to 1 for class 'PZ'. It will 
format as 1*A1NNN. R3 is otherwise set to 0 to format 
as 1*ANN. 



3:X00 3 This routine is used to provide the stamp 'J' before 
the numeric portion of a Dewey call number. If the 
characters 'Fic' are in the $a subfield of the 090 
field, they are replaced with 'J'. If there is 
anything else in the $a subfield, it is preceded by 
'J'. If nothing is entered to precede the numerics 
of the call number, a 'J' is placed there. Rl is used 
as a working register to test the contents of the 
$a subfield. R4 is used to store the 'J' in the 
090T area. Rl, R2 , and R4 are used to shift the contents 
over two places to the right if the $a subfield does 
not contain the characters 'Fic'. 



3*X004 This routine is used to decrement the call number 
width by 1 for Dewey call numbers so that a stamp 
will go into the left margin. Rl is used as a working 
register . 



3:X005 This routine provides for special cutter breaks. 

Both cutters are put on one line if they fit; otherwise, 
the first cutter ends with a (for sub-script = 0) 

or '.' (for sub-script = 1) and the 2nd cutter begins 
with a blank on the next line. R4 , R6, and R7 are used 
as working registers. 



3:X006 This routine will test the loopswitch indicated by 

R2. Prior to entering this routine, R2 is set with the 
first indicator from a 'TEST' instruction. If the 
loopswitch is not set, a branch is taken to ' RETURN 
If the loopswitch is set, ir is incremented by 1. 
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TMit; i\)uti;\.' Is used to tieciHMiUMil ihc call numbof 
width when thore is only one sot of v^versizc paramotor':. 
and the L^ymbol is to go in the left margin. KIO i'. 
used ao a working register to save and restore PDTPARMS 
The routine 0SIU02 is used to set up R14 and R15 
(height and width); R5 is also used as a working 
register.; 



X0.18 This routine decrements CNWIDTH (Call number width) 
by one fov special stamps which go in the left margin. 
Prior to entering this routine, R3 is set with the 
sub-script indicator from the *LEAF* instruction. R2 
is used to pick up the stamp and R3 (sub-script indic- 
ator) i'. used as an index into a table of stamps. R4 
is used as a working register. 

X009 This routine decrements CNWIDTH (Crll number width) 
by 2 for books lar|';er than 42 cm. so that the over- 
size symbol can go into the left margin. If the book 
is not larger than 42 cm. , a branch is taken to the 
routine 3:X007 to decrement the call number width by 
one for books less than 42 cm. but larger than 26 cm. 
The rout ii.e OSIU02 is used to set up R14 and R15 
(height and width). R5 is used as a working register. 
RIO is usrd to save PDTPARMS. A branch is taken to 
3:X00/ to restore PDTPARMS. 



XOlO This routine supplies a special pseudo- 'stamp * 
lor Dewey Juvenile books. R3 i^ sec up with tn*» 
sub-script indicator from the 'LEAF^ instruction 
and is used as an indfc:X into a tabic of routines 
to determine wnich stamp to use and where it is 
Lo be placed. 

R5 is set up with the address of the stamp and 
R7 is set with the length of the star.p before 
branching to the move routine 4:UCM1. When the 
stamp is to go in ■'.he Left margin, R9 is set up 
with the addrtf;s of the stamp and a branch is taken 
to the move routine 0SIU09. 
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3:X011 Thii; routine will put both cuttcrr; on 1 lino mil 
the book is class 'PZ', then the cuttf^rs go on 
separate lines. R15 is set with 'PZ' and R3 is i;ut 
equal to 0 before branching to the cla£ s check 
routine OSIUOIA. R6 and R7 are loaded with tho addres 
of the FCW (format control word), and the address 
of the routine to process the "second cutter. 



3:X012 This routine will suppress printing of elements 2 
and 3 and supply a blank line instead for all books 
in class 'K' except class 'KF'. R^ is set as a 
switch before branching to 3:X014 which will suppress 
printing of elements 2 and 3 for class 'K' books. 
R2 is used as a working register to move in a blank 
line (5F) and end of field delimiter (FD). 



3:X013 This routine will put the second cutter on a new 

line, preceded by a decimal point unless the book is 
class 'PZ*, then the second cutter is put on a new 
line with no decimal point. R15 is set with 'PZ' and 
R3 is set equal to zero before branching to the class 
check routine, OSIUOIA. R6 and R7 are loaded with the 
address of the FCW (format control word), and the 
address of the routine to process the second cutter. 



This routine suppresses printing of elements 
2 and 3 for all books in class K if the first 
position of element 2 is zero (0). R15 is set 
with the. letter 'K' and R3 is set to zero before 
branching via R7 to 3:X100 to initialize 090T-1 
(size), then to OSlUOl to check the class. If 
the class is not 'K' a branch is made to RETURN 
to continue processing the call number. If the 
class IS 'K', R8 is used as a working register 
to find the first position of element 2. If the 
first character is zero, the fourth element is 
located and REG3 is set up from R3 as the byte 
address of the source (i.e. elements 2 and 3 are 
suppressed). If the first position of element 
2 IS not zero, a branch is taken to RETURN with- 
out suppressing elements 2 and 3. Rl^ is used 
as a linking register within the routine. 
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3:X015 This routine is used to suppress printing 
of the $a sub field of the 09 2 field when the 
sub fie Id contains one of two different three- 
letter entries. The entries to be suppressed 
must be entered consecutively in the table 
3:X017T. The index to the first entry is passed 
to this routine in R3 where R3 is set up with 
the subscript from the LEAF instruction. R3 
is then incremented by 1 to obtain the index 
for the second entry. A branch and link on 
R7 is then taken to the routine 3:X017 to do the 
actual checking and suppression of the entry. 
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3:Xi0n This routine is used to initialize 090T-i (size) 

before branching to the class check routine, OSIUOl. 
The check must go through, this routine first if the 
check occurs before the first 7 elements have been 
formatted. R8 is used as a working register to set 
up 09GT-1. 3:X101 xs used to set up a branch to 
OSIUOIA which will check 2 class letters. 3:X100 . 
is used to set up a branch to OSIUOl which will check 

1 class letter. R15 and R3 must be set up prior to 
coming through this routine. R15 contains the 1 or 

2 class letters or numbers to be checked and ? is i3et 
equal to 0. 



3:X016 This routine will cause the printing of the call 

number to begin one line lower. This is accomplished 
by moving in the 4 characters — $a, sort skip, an^ 
a blank i^ front of the call number. R14 and R15 are 
used as working registers to pick up the byt<=^ address 
and the length of FIELD2, the formatted call number 
field. R2, R3, and R^ are used as working registers 

: move the 4 characters to fIELD2. R2 is used as an 
index into FIELD2, and R2 also has the length of the 
call number which is stored into the second half-word 
of FIELD2 after the characters have been moved. R3 
is used to store an end of field delimiter (ED) at 
the end of the call number field. 



3:X017 This routine is used for a Superintendent of Documents 
collection. The characters *Doc* are entered in the 
$a subfield of the 090 field. The printing of this 
subfield is suppressed with this routine. R4 is used to 
test for the characters 'Doc*. Rl is lised to change 
the index into the OSiOT area to zero. This will 
effectively cause the remainder of the call number to 
4>e printed over the characters *Doc'. 



3:X018 This routine will suppress elements two and 
three for all books. R3 is set from REC3 and 
contains the byte address of the sovr^ce. R14 
links to 3:X0mB and returns with *the byte 
address of the fourth element in R3. 
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3:X019 This routine will create an extra stamp '(LC)' 
for all books if the sub-script =1 (R3 = subscript 
from the 'LEAF' instruction), or for all books ex- 
cept those in classes 'Q', 'D' , or (not including 
'PA, *PB, etc.) if the subscript = 0. R15 is loaded 
with the class letter to be checked, and then a branch 
and link on R7 is taken to OSIUOl which does the clans 
check. R1I4 is a switch for Yale to be set if R3=0 , . 
and a class 'P' is being checked. If the stamp is to 
be provided, R3 is set to act as an index into the 
table 3:X0019T. R4 is loaded with the address of the 
Stamp usiri^g R3 as an index. The stamp is then loaded 
into Rl, R2 , and R3 c*nd then stored into the field 
•STAMP2* to be -treated as a Non-PDT stamp #3. 
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M:UOOO This routine is used to set up for formatting; 
off-line yellow request cards and any on-line 
record that uses the free- text call number field 
(099) . 

For the on-line version, RU and R5 vick up tb^ 
byte addre:5S and the ^Ingth of the 099 field frojii 
LNKBA. RU is then inc^remented to point to the 
first byte of the call number and R7 is loaded 
with the length of the call number. 

For the off-line version, the call nuinl^r has 
already been moved to the location TEXT. If 
TEXT is longer thran 160 bytes en end of field 
delimiter (X^FD') is moved to the 090T field 
(temporary formatted call member field). RH 
loaded with the byte address of the first byte of 
The call number and R7 is leaded with the length 
of the call number. 

I 

For both versions, R5 is loaded with the byte 
address of the 090T field and the length of the 
call number is stored at 090T-I. ' The call number 
is then moved to the 090T field and an End of 
Field delimiter (X*FDM is stored at the end of 
the field, a *U* is moved into the serond half- 
word of FILLD2 (formatted call number field) so 
that the call number will be moved to rn:i.D2 
beginning at the fourth byte. 

UrUOOl This routine is used to process the I'DT or 
holding library stamp. R2 is loaded with the 
length of the call number as it is in FI1JLD2 at 
this point. R2 is then used as an index into 
FIELD2 to move in a subfield code (X*FC9 7' $P) . 
An end of field delimiter (X'FD') is then moved 
in after the subfield code. The adjusted length 
of the call, number (R2 + 3) is then stored in the 
second half-word of FIELD2. 

When the program CCFP processes this record, 
it will pick up the subfield code and replace 
it with the Kolding library stamp as requested by 
the institution. 
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U:U0 02 This routine is used to process the non-l'DT 

stamp #1 ($b). R3 is set prior to entering this 
routine with the sub-script of the 'LEAf ron- 
struction. The current possible values of R3 aro 
as followr: 

1 Supply a bl^nk line before the stamp 

2 Put the stamp in the left margin 

3 If the stamp is 'j' move it into the 

left margin 

4 If the stamp is 'j', move it in front 

of the first cutter. 

5 If the stamp is 'j', move it in front 

of the element 2 

6 Supply a blank line after the stamp 

The stamp is picked up from the 0H9 field and 
moved to the temporary location STAMP. R7 is used 
in this routine to test for the presence of the 
stamp. R7 is then set with the length of the 
stamp and R5 is set with the byte address of the 
stamp. If no special handling is to be performed 
<R3 = 0), a branch is taken to the move routine, 
U:UCM1. 

If R3 = 1, R13 is loaded with a X*82' (lower 
case 'b*) and R12 is used as a linking register to 
U:U0012. H:U0012 will jnove^ subfial<^^lifiHrt^r 
(X'FC) and the lower case 'b' followed by an end 
of field delimiter (X'FD') into FIELD2 (formatted 
call number field). This will provide a blank line. 
Control is then passed to the routine 4:UCM1 to 
move the stamp into FIELD2 . 

If R3 = 2 , R9 is loaded with the stamp f assuming 
the stamp is only one character in length) and R7 is 
used to link to the routine OSIU09 where the contents 
of R9 will be moved into the left margin. 

If R3 is nqt 0, 1, 2, or 6 and the stamp is not 
'j', a direct brance is taken to 4:UCM1 to move the 
stamp into FIELD2, and Control is returned to this 
routine. A direct brance is then taken to 3:X016 
where a suDfield code (X'FCSlM and an end of field 
delimiter (X'FD') are moved to JIELD?. This action 
effectively produces a blank line after the stamp. 

If the stamp is 'j' and R3 ^ 4 or 5, R15 is set 
with the element number after which the stamp is 
to appear. R14 is set with a 'F' to indicate to 
the move routine that this is a stamp and not an 
oversize symbol. A branch , is then made to OSIU06 
to move the stamp. 
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iiOO? Tliis routine sets up the oversize tourine. liS 
is used to pick up the index to the over'^^^izo rou- 
tine from PDT set-up. i 

U004 This routine sets up R5 and R7 he fore branch inw 
to the move routine to nove in the formatted call 
number. R7 has the length of the 090T area and 
R5 has the byte address of 090T. 

U005 This routine is use^ to process the noh-Plvr stain 
#3 ($c), R7 is used to test for the presence of 
the stamp. Prior to entering this routine, R3 is 
set with the sub-script of the 'LEAF' instruction. 
If it is not a 1 (one) a branch is taken to the 
move routine (4:UCM1). If the sub-script is a 1, 
Ri3 is loaded with the subfield code (c) and a 
branch is taken on R12 to 4:11001 which will effcc 
tivcly provide a blank line before the stamp. 
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4:U099 ThLs routine is used to end and link FIELDZ 
f formatted call number /ield) to the rest of 
the record. R4 and R5 are loaded with the byte 
address and length of FIF:LI)2, respectively. An 
end of field delimiter is moved at the end of 
IILLDZ. The byte address and the adjusted length 
of I'IF.LDZ are then re-set in the first word of 
^l'IF;Ll)2. The adjusted length is alsa stored into 
^the second word of the parameter list FLDPARM2 . 
R2 is then loaded with the address of FLDPARM2 and 
R3 is loaded with the address of the field that 
"s 10 immediately precede this new field. In 
the case of the call number, this field is the 
last field before the 100 field and Te address 
of this field is found at location XLilOO. Con- 
trol is t^^en passed to the routine XiU999 to do 
the actual linking. 

4:UCM1 This routine is used to move the formatted call 
number into FIELD2 . An' alternate entry point to 
this routine 4:UCM1E which will return control 
back to the calling routine after the move is 
performed. The calling sequence is: BAL,R3 H:UCM1E. 
Prior to entering this routine, R5 and R7 are set 
up with the byte address and the length of the 
field to be moved, respectively. The second half- 
word of FIELD2 has the length of the call number 
so far. This value is loaded into. which is then 
.used as an index register to FIELD2. If the field 
does not begin with a subfield code, a subfield •'a* 
(X'FCSIM is stored at the beginning of the field. 

For every new line indicator in the field (X'5F' 
or X'FB'), it is replaced with a subfield "a" 
(X'FCSl'). The field is then moved to FIELD2 using PI, 
R4, R5, and R7 until an end of field delimiter (X'FDM 
is found. The byte address and the length .of FIELD2 
are adjusted in the first and second half-words respectively 
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HiXOOl This routine will change the PDT# from that of 

'CIN' to that of 'CII* if the book is in class 'M'. 
Rm is used as a working ^egif^ter to pick up the 
PDT* from FMTDATA and check for 'CIN'. R15 is set 
with class letter *M' before branching on R7 to the 
class check routine, OSIUOl. RIU is used as a work- 
ing register to change the PDT# and store it back 
into FMTDATA. 



U:X002 This routine checks for class *QA* and creates one 
extra card for those books. R15 is set with two 
class letters 'QA' before branching on R7 to the class 
check routine, OSIUOIA. 'FMTDATA' is incremented by 
one to force an extra card, if the book is i.. class 'QA'. 



U:X003 This routine causes two exti?a:-^ards to be created for 
books in class 'QD*. R15 is set with the two class 
letters 'QD' before branching on R7 to the class check 
routine, OSIUOIA. 'FMTDATA' is incremented by tv;o to 
force two extra cards. 



UrXOOH This routine causes one extra card to be created for 
books in class 'K' or class 'JX'. R15 is first set 
with class letter 'K' and then 'JXVbefore branching 
on R7 to the class check routines OSIUOl and OSIUOIA. 
'FMTDATA' is incremented by one to force an extra card. 



U:X005 This routine provides a pseudo-stamp 'J' above the 
call number. R5 has the byte address of the stamp 
'J' and R7 has the length of the stamp (one). The 
routine then branches to the move routine ^rUCMl. 



H:X006 This routine creates extra cards for MIAMI. Two extra 
cards are created for books with stamp 'REF.H' or stamp 
'B'. No extra cards for books with any other stamp. 
Two extra cards are created for books in class 'A', 'B', 
'N', 'M', 'P', or 'Z', or Dewey class 'F' or '800'. 
R7 is used as the working register to check for the 
presence of $b stamp. R3 (sub-script on 'LEAF' instruc- 
tion) is set up prior to coming to this routine. R3 = 1 
for Dewey books and R3 = 0 for LC books. R2 is used 
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as a working register to check for *REF H* or 
stamp. A table is set up with the ] i^t of class 
letters to be checked, and R5 acts as an incrementing 
index through the table. R15 is set with the class 
letter from the table before branching on R7 to the 
class check routine O^IUQl. 'FMTDATA* is incremented 
by 2 to force extra cards when needed. 



U:X007 This routine is a special processor for Pittsburgh. 
If the book is in the main holding^ library (PIT) and 
it is in class the ?DT# is changed to *3a6* 

-holding library (?IR). If it is in the main holding 
library and class the PDT# is changed to *383* — 

Music holding library (PIK). The PDT stamp is deleted 
in both cases. Rl4 is used as a working register to 
check for main holding library; to cnange the PDT# 
in *FMTDATA*; to set Loopswitch 2 to delete processing 
of PDT stamp ($p); and to cancel out the last 
library processed code since the library code has been 
changed. R15 is set first with then with •N* 
before branching to the class check routine, OSIUOl . 



U:X008 This routine will automatically cause two extra cards 
to be created for any book with a non-PDT stamp. R7 is 
used as a working register to test for the presence 
of either stamp. If there is a stamp present, *FMTDATA' 
is incremented to create two extra cards. 



U:X009 This routine will automatically cause one extra card 
to be created for all books in class *L* with a date 
of publication of 1972 or later. R15 is loaded with 
the class letter and R7 is used as the linking 

register to OSIUOl, the class Oheck routine. If it 
is in class *L*, the first half-word of the 5th word 
of the record is checked to see if the date of publi- 
cation is 1972 or later. Ri* and R15 are used as^work- 
ing registers to do this. The first entry in the 
link directory is the byte address of the record. This 
is used to get the date of publication. 



5:U000 This routine will set the unit card flag. R2 and 
R3 are used to set the flag and to z^ro the number 
of extra cards. Since the call number is printed 
in the user data field for unit cardr , the X910 field 
(user data field) is deleted from the directory. R7 and 
R8 are used to delete the entry by branching to the 
program *LINKDLT^ R2 is used to zero the addres.s to 
the X910. 
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XOlO 

Itiis routine will set the second loopswitch which w5 
effectively cause element.i 1-7 of the call n'lrd^er to ] 
suppressed whenever the $a subfield cf the 027 field i 
•fiction'. The first two words of the call number aro 
Loaded into RH and R5 and compared with * Fiction'. 
If they are equal, LOOPSW +2 is turned on. 
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UOOl This routine sets up the registers to put the 

Dewey class number into the user data area if it is 
present; otherwise put the LC number there instead. 
Rl is used to check for the presence of the Dewey 
class number. Rl is alao used to store an apostorophe 
character in REGIS. Rl is used as an index into the 
link directory table to pick up the byte address and 
the length of the 082 field into R2 and R3 respective- 
ly. R2 is used to point past the indicators of the 
082 field. REGS then has the byte address of the 
1st byte past the indicators of the 082 field. 



U002 Thisnrourine will move the user data -»rto 'FIELDS' 
which is the formatted user data field. Prior to 
branching to tuis routine, Kb and Klb are set up with 
the byte address of the user data and the character 
which is to replace all slash characters, respectively. 
R4 is used as an index to FIELD3 beginning at the 
second word. R^ will also have the length of the 
user data (in bytes) +4. This value is stored in 
the second half-word of 'FIELDS'. Rl is used as 
a working register to pick up and test for a slash 
character, in which case, the slash is replaced by 
the contents of RIS. R7 is set with the size of the 
910 field and is used as a decrementing register to 
fill up FIELDS. The characters are moved to FIELD3 in 
a 'load-byte; stoi-e-byte' fashion with RS as the 
index to the date* and R4 as the index to FIELD3. 



U003 This routine sets up the registers to put the LC 

card number in the user data area. The X050 field (LC 

call number) is loaded into Rl . R2 and R3 are used 

as working registers to pick up the byte address and 

the length of the 050 field from the link directory. 

REGS is loaded with the byte address of the 1st byte 

of the 050 field past the indicator. Rl is used as 

a working register to store c; 3lash character in PXCAL . 

If there is no LC number present (X050 = 0), Rl ic 

used to move 'UOFE' —"Blank, end of record' -- into REGS. 
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U004 This routine sets up the registers to put the 

alternate LC card number in the user data area for 

"green lit" cards. Rl is used as a working 

register to check the presence of an 050 field. 

Rl is also used as an index to the link directory to 

pick off the byte address and the length of the 050 

into R2 and R3, Rl and R2 are then used to test the 

second indicator which tells whether or not it is a 

green lit card. R3 and RH are loaded with a subfield 

delimiter character and a lower case 'a', respectively. 

R2 is used as the index to the 050. R2, R3 , and 

RH are used to find the $a subfield. REG5 is loaded 

with the byte address of the alternate LC card number. 

Rl is used to store a slash character in REG15. 

The character in REG15 is used to replace all 

slashes in the call number field. 



U005 This routine sets up the registers^ to put the 
Dewey card number in the user data area. Rl is 
used to check for the presence of the 08 2 (Dewey 
class number) field. If the field is not present, 
a branch is taken (5:U003C) to store the byte address 
of the Dewey card number in REG5, and to store a 
slash character in RE615. 



UOIO This routine sets up the registers to provide the 
printing date in the user data area. Rl is used as 
a working register to store a slash character in REG15. 
REG15 contains the character which will replace 
all slashes in the card number. Rl, R2 , and R3 are 
used to pick off the printing data from MSGQ. Rl is 
used to store an end of field indicator after the 
date in the 910T area. Rl is used to store the byte 
address of the printing date in REG5. 



UOll This routine provides the cataloging source in 

the user data area. Rl is used to pick up the address 

of the cataloging source. For the on-line system, 

the source is in 'RECDBUF', the 8-word record leader. 

For the off-line system,* the source is found from 

'DBBA', the byte address of the record. If the 

source is one of the three standard: Library of Congresr; 

National Agriculture Library, or National Library 

of Medicino, its abbreviated format is moved immediately 

into FIELDS (user data field). If it is not one of the 

standard forms, it must be reduced to 22 characters. 
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5:U011 (continued) 

Rl - R5 are used to pick up the source and move it 
to 090T (user data temp area), deleting c ^1 decimals 
and commas. If the field is less than 22 characters, 
it is jT.ov^d to FIELDS. If not, each word is then checked 
against a table called ' STOPttS^.— This is an 
alp^iabetical list of wor3s and abbreviations.^ If 
tho word is in this list, it is replaced with its 
substitute. The word is then checked fox' a vowel 
group. In which case, all vowels in each group except 
for the first vowel in the group are suppressed. 
If the cataloging source is still longer than 22 
characters , any word with more than 6 characters and 
with more than 1 vowel group is truncated until the 
data is less than 22 characters. At which point 
the contents of 910T are moved to FIELDS.^ Rl - R9 
are used in this substitution and truncation process. 



5:U012 This routine sets up the register to put the year 
of the print run, plus the cataloging source, if 
it is LC; otherwise put nothing into the user data 
area. Rl is used as a working register to store 
a slash character in REG15 , and Rl is used to store 
the byte address of the 910T area (temporary user 
data field) into REGS. Rl is used to pick up the 
byte address of the record, add cataloging source 
displacement (29) and pick off the first byte in 
R2. R2 is used to test to see if the cataloging 
^ source is LC. Rl - R5 are used to pick up the abbre- 

viation for 'Library of Congress' and move it to the 
910T area. R2 and R3 are used to pick up the year 
of the print run from MSGd and move it to the 
910T area. Rl is used to store an end of field 
indicator (X'FD') in the 910T area. 



5:U013 This routine will provide the date of the print 

run plus the catalogers indentif ication in the user 
data area for the on-line system only. The routine 
5:U010 is used to provide the date of the print run. 
RU is used to pick up the catalogers initials from 
'RECDBUF' , the 8-word record leader, and store it 
in the 910T (user data field) after the printing 
date. Rl is used to store an end of field indicator 
in the 910T area. 
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5:U0m Tliis routine is usod to provide the date of the pri;it 
run and the OCLC # in the user d.^ta area. The OCLCii^ 
can only be retrived if CNVT is run on-line. In order 
for this routine to work, the routine 5:U010 must be in 
the tree before this routine. The address of the OCLC# 
is picked up from the record leader and stored into 
the first word of the parm lisn: labeled OCLC#FPT. 
The address of the parm list is loaded into t8. A 
branch and link on R7 is taken to the external subroutine 
CBIEB to convert the OCLC# from Binary to EBCDIC 
tormat^ and to move the converted number to the user 
data ^mporary field (9101). Rl and R2 are used to 
store an end of field delimiter (X'FD') at the end oi the 
910T field. 



5:U015 This routine will provide in the user data area tlie 

date of the print run plus a two-word entry irrom the table 
5:U015T. rne routine 5:U010 (which must precede 
this routine in the TREE) provides the date. R3 has 
the subscript from the LEAF instruction which serves 
as an index into 5:U015T. and R5 are used to move 

the data to the temporary user data field (910T). 
Rl is. used to store an end of field indicator (X'FD*) 
at the end of the 910T area. 
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6:U001 This routine will provide a bracketed blank line 
between the main entry and the title field whenever 
there is no ?U0 field. The address of the 2U0 field 
xetrived from X2H0. If the field is present, a brand: 
is taken to KKTURN. 'XLT2'iS has the address of the laot 
entry in the directory bel'ore the 2^vS field. This is 
l0':ided in R3 . R2 is loaded with 3 address of 
FLDPARMM . This is a three-word parm list. The first word 
is the byte address of FIELDS which is a field of HO 
blanks preceeded by a '1*. The second word is the byte 
length of the field. The third word is the tag (2H0) 
in hexadecimal format. A branch is then taken to X:U999 
to input the blank field and link it to the other 
fields. The LEAF for this routine is entered in the 
tree after H:U999 which links the 090 fit Id. 
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5:1)999 TIii:i routine will end and link the 910 field (user 
data). "FIELD3" is set up with the user data prior 
to coming to this routine. The second half-word of, 
FIELD3 has the length of the data field +4; the rest 
of FIELD3 has the user data. The second half-word 
•of R5 is set up with the length. Rl is-ttsed as a 
working register to store X'FD' at the end of the 
field. R5 is incremented lO account for the :EOF 
and the value is stored in FLDPARM3 +1 and is also 
stored into the first word of FIELD3 . R2 is set 
with the byte address of FIELDS and R3 is set with 
the last entry in the directory which has been processed 
A branch is taken to X:U999 to end and link the 090 
field. 



XiUOOO This is the routine which causes the formatted cards 
to be produced. For the on-line system, R8 is^loaded 
with the pararaeter list to build the formatted record 
. and a branch is taken to the program 'FMTREC'. Upon 
return froih formatting the record, Rl is loaded with 
the address' 6r"W0RKAREA' and R8 is loaded with the 
address of the. parameters for writing the record onto 
iaaotbe^p-'la^^^iil«3"^h is taken to 'TAPEIO' to 
read the records and write them onto ano-^her tape. 
The completion status of the tape is checked after 
it l as been createc . For the off-line system^ "the 
completion status of the type is checked first. 
R8 is loaded with the parameter list to build the 
formatted record and a branch is taken to 'FMTREC'. 
Upon return from formatting the record, Rl and R8 are 
set up ac for the nn-line system. A branch is taken 
to 'TAPEIO' to re . J the tape arid write out the records. 



X:U001 This routine will log the record as being selected. 
•The procedure "WRTSELD' will print the message that 
this record has been selected. The procedure 'PUNCHSLD' 

will punch out the select card information. This 

procedure being for the off-line system only. In 
either case the total number of select c^.rds read is 
incremented by one. 
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X:U999 This routine is used to link another field (Generally 
the 090) to the rest of the record. Upon entering this 
routine, R3 must have the address of the field that is 
to immediately precede the new unlinked field. R2 must 
have the oyte address of a 3-word parm list. The first 
word is the byte address of the field to be linked. 
The second word is the length of the field. The third 
word is the tag in hexadecimal format. R8 is loaded 
with the address of the parm list for the link and a 
branch and link oB R7 is taken to the external subroutine 
LINKINST. 
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MAKEGRN- This routine is used when it has been determined 
that a unit card is to be produced fnr a record. A 
unit card is a single card with no call nuihber. The 
usual cause of a \init card is an illegal call number. 
This routine cheuiges the color code for the record to 
'i' (green) which causes CNVT to produce a unit card. 
The call number field is printed in the user data 
area for a unit card. This routine finds the call number 
field for this record and changes it to an 0 50 field 
if it is not already an 0 50. This change is performed 
because the user data routine expects the call number 
to be in the 050 field. 



/ 
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LCCNUAOO ^--iLL Itiis routine is a special routine for Oberlin 
to m0e the call number to the 090T (temporary call 
number field) . It -^movAes a maximum of 7 characters per 
line with a decimal point after every 3 characters , 
and lines are broken only at a decimal point. LCCNUAMl 
increments R3 (the byte address of the source), and R5 
is set to the element l*=»ngth -2 to skip past the element 
number and the blank. ljCCNUAOO is used if the element 
is to be preceded by a blank. LCCNUAOO does not increment 
R3 and sets R5 with the element length -1 to skip past 
the element number but include the blank. R7 is used 
as the link register to this routine. RU is used to 
pick off characters from the source. R6 is loaded with 
a (= 3 characters plus 1 decimal point to move per 
group). Rl is the index to the 090T and also has the 
number of characters that have already been moved. 
R2 has the negative call number width. R9 is used 
as a working register to^^neve in *new line* ^decimal* 
(5FUB) . 



LCCNUG00,-M1 This routine is a special routine for Hebrew 

Union to move the call number to the 090T area (tempor- 
ary call number field). It moves 6 digits per line, 
with a space after and if they begin a cutter, 
and a decimal after the first numeric in the cutter. 
LCCNUGMl increments the index to the source (R3) and 
loads R4 with the length of the elemenx -2 to skip past 
the element number and the blank. LCCNUGOO is used 
if the element is to be preceded by a blank. LCCNUGOO 
loads RU with the length of the element -1 to skip past 
, rrFe element number and include the blank. R2 is set wila 

■"^^ the negative call number width which will effectively 

indicate how many more characters will fit on one line. 
R6 is used as a linking register to pick off and store 
the characters. R5 is used as the index to a temporary 
storage area. R8 and R9 are used as working registers. 
Two routines within the routine are *IOT* and *NL* which 
test for *I* or *0* and *new line*. 
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LCCNUTOO5-MI Tliis routine moves one element of the call 

number into the 090T area (call number temporary field). 
LCCNUTOO is used if the element is to be preceded by 
a blank. R5 is loaded with the (element length -1) 
because the first byte of the element is the element 
number. All other elements use the routine LCCNUTIll. 
The address of the source (R3) is incremented by 1 no 
point past the element number and the blank. The ej.e- 
ment length is decremented by 2 to account for these 
2 characters and the resulting length is loaded into R5. 
R8 is se-^ up in 3:U0XX as a switch to indicate which 
type of bpacing to use. If R8 = 

1 new line after alpha 

2 space after 'I' if not followed 

by a numeric 
2H space before 'I' and '0' 
32 space after alpha 

6 3 supply decimal if element is in $a 
19 2 supply decimal if element is in $a, 
newline if it is in $b 
30 space before 'I' and '0' and space 
after 'I* and if followed by 
a numeric 
6 space after 'I' and '0* 

R3 is set equal to the byte address of the source, and 
RU is used as a working register to pick off characters 
from the source. R6 (six) is used as a linking register 
within the routine. R2 is set equal to the complement 
of the call number width. R9 is used as a working 
register. Rl is used as an index into the 090T area 
and IS also used to indicate the number of characters 
already moved. R7 is the linking register to this 
routine. If an element over-flows the call number width 
and the next character is not a comma (indicator to start 
a new line), a return is made back to 3:U00X ('X' being 
the element number) to try moving the element again. 



OSiyOl Thib routine will check one (OSIUOl) or two (OSIUOIA) 
^' characters of the class number. R15 is set with the 1 
or 2 class letters prior to entering this routine. R6 
is set with the number of characters to be checked for 
(1 or 2). Rl is set with the size of the 090T i tempor- 
ary call number area). R7 is the linking register to 
this routine. Rl is used as an index to the 090T to 
pick off the class number into R2. The first byte of 
the class number is found, skipping over subfield codes 
and new line indicators. R2 is compared to R15 and st- 
ratum to the calling^ routine is taken one (not equal) 
or zero (equal) instructions past R7 . 
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OSIU02 ThiG routine sets up Rm and R15 (height and width) 
used in check! nf, for oversize. R7 is the linking 
register^ to thin routine. R5 is used as a linking 
register within the routine. R4 is used as a working 
register to check for the presence of the 300 field 
(identification block). R4 and R5 are used to pick 
up the byte address and the length of the 300 field from 
the Link Directory. Rll, R12, and R13 are used as 
working registers and are set with X*FDS X*FC% and X*83 
respectively. R4 is used to pick up the bytes of tne 300 
field and find the $c subfield (height and width). 
Rll is used to convert the height and width from EDCDIC 
to binary. 



OSIU0 3 This routine will check for oversize for two sets 
of parameters. R14 anr! R15 are already set up with 
the height and width of the book. R5 is used as an 
index into the table of oversize pa :jneters for this 
institution. R9 has the address of -^he symbol used 
for the larger oversize books. If ^ 3 book does not 
nieet this criterion, R9 is loaded with the address 
in R8 which is the symbol for the smaller oversize 
books. A branch is then taken to OSIUOH to either 
move in the symbol or to check the next set of parameters 



OSIU04 This routine will cTieck one set of oversize para- 
meters. R14 and R15 are already set up with the 
height and liidth of the book. R9 is already set up 
with i-he byte address of the oversize symbol-.- R5 is 
used as an index into the table of oversize parametex's 
for this institution. If the book is oversize, the size 
of the symbol is picked up from R9 and loaded into R7. 
R5 points to the first byte of the symbol. A branch 
is taken to 4:UCM1 to move the symbol into the call 
number field. 



OSIU05 This routine is used to check one set of oversize 
parameters when the symbol is to go somewhere other 
than above or below the call number. RIH and R15 are 
already set up with the height and width of the book. 
R5 is used as aj\ index into the parameter table used 
by this institution. If the book is oversize, a branch 
is made back to the oversize routine. R7 is used as the 
linking register. 
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OSIU06 This routine will nut the ovorni::e symbol in front 

of the element indicated by R15. RM is already net up ' 
with the byte address of the oversir.e symbol. HI lr> 
loaded with the length of the 090T tield (fornulli^J 
call number field). R2 is loaded with fhe bvte address 
of the call number field. RJ is used to pick up 
characters from the call number and check for alphas 
and numerics until the proper element is found ( Indicated 
by R15). R7 is used as a linking register to two routines 
— OSIU07 and OSIU08. OSIU07 will adjust R2 to point 
past new line and subfield indicators and past blanks 
or decimals. OSIU08 will adjust R2 to point to the first 
new lirte, subfield, or end of field indicator J.t 
encounters. Once the element has been found, R3 is 
loaded with the byte address of a temporary storage area 
called *TEMP'. R+ is used as a working register to 
move the remainder of the call number into TEMP. RU 

is used to store an end of field character at the end 
of TEMP. The oversize symbol is taken fj?om R9 and 
moved into the call number field. Then the remainder 
of th^ ^^11 number is taken from TEMP and stored back 
into the call number field fAtev the symbol, usin^, 
Rl - R4. R4 is used to store an end of field character 
at the end of the call nuuiber. R2 is used to store the 
revised length (including the symbol) into 090T-1. 



OSIU07 This routine will adjust R2 to point to the first 
character past all new line and subfield indicators, 
and past blanks or decimals. R2 is already set prior 
to entering this routine with a byte address. R3 is 
used to pick up bytes from R2 and to check for new 
line and siflbrfield indicators and blanks or decimals. 
Rl is already set prior to entering this routine with 
the remaining length of the field. The linking register 
to this routine is R7. 



OSIU08 This routine will adjust R2 to point to the first 

new line or subfield indicator or the first end of field 
character it encounters. R2 is already set up with a 
byte address from which the search is to begin and Rl 
is already set up with the remaining length of the 
field. R3 is used to pick up the bytes one-by-one 
from R2 and test for the characters. R7 is the linking 
register to this routine. 
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OSIU09 This routine is used to move the overs.ize symbol into 
the left margin and shift every other element of the 
call number over 1 space. R7 is used as the linking 
register to this routine but the address in R7 is 
immediately loaded into R6 so that the teturn to the 
calling routine is made through R6« R7 is used as 
the linking register within the routipe. Prior to 
entering this routine, R9 contains the byte address of 
the oversize synbol. 

If the symbol is to go in the left margin in front 
of the first cutter, RIH and R15 must be 3et up prior 
to entering the routine. RIH will have a if the 
first cutter is to identified as the first element 
that begins with a decimal followed by at least one 
alpha. Rm will have a '2* if the first cutter is 
to be identified as the second call number element 
that is one alpha followed by at least one numeric. 
In either case, R15 will contain the symbol (in hexadecimal 
format) that is to go in front of the first cutter. 

One subroutine is used outside this routine. OSIU0 8 
is used to position R2 (byte address of the call number 
field) at the first new line, subfield, or end of 
field indicator. 

Rl is loaded with the length of the 090T area 
(temporary formatted call number field.) R2 is lociCed 
with the byte address of the 090T area. R3 is ucied 
to pick up the characters pointed to by R2. R9 is used 
to put "sort skip" characters (X'70') around the 
oversize symbol if they are not already there. The 
'soirt skip' character is used so that a call number 
sort will not include the oversize symbol. R4i R5, 
and R8 are used as working registers to shift the entire* 
^ call number over 1 byte to the right. Rt^ is then 

loaded with a blank character (X'**0') to be moved into 
the left margin in front of every other element. The 
length of the call number (090T-1) is incremented 
to account for the extra blanks and the stamp. 

If Rm=2, the second loopswitch is used to determine 
when the second alpha-numeric element is encountered. 
The switch is set after the firet element is found. 

OSIUlO This routine is used to check three sets of oversize 
parameters. RIU and R15 are already set up with the 
heignt and width of the book. R5 is us d as an index 
into the parame-^er table used by this institution. R9 
has the addreso of the symbol used for the largest over- 
size books. If the book does not fit this criterion, 
R9 is' loaded with the address in R6 , the symbol used 
for the oversize books meeting the middle criterion. 
A branch is taken to OSIU03 to check the next smaller 
set of parameters. If the book is oversize, e. brancii 
is taken to OSIUOU to move the symbol into thit call 
number field. 



* 
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OSIUll This routine is /used to check two sets of oversize 

parameters when the symbol is to go somewhere other than 
above or below the call number. Rl^i and R15 are already 
set up with the height and width of the book. R5 is used 
as an index into the table of oversize parameters used 
by this institution. If the book is oversize, a branch 
is made back to the over-size routine. R9 has the 
address of the symbol. If the book is not oversize, R9 
is loaded with the address in R8 , the symbol used for 
the smaller oversize books. A branch is taken to OSIU05 
to check the smaller set of parameters. 



0SIU12 This routine is need to check three sets of oversize 
parameters when the symbol is to go somewhere other than 
above or below the call number. RIU and R15 are already 
set up with the height and width of the book. R5 is 
used as an index into the table of parameters used by 
this institution. The address of the oversize symbol 
is in R9. If the book is not larger than the largest 
set of parameters, a branch is taken to OSIUll to check 
the next smaller set of parameters. If the book does 
meet this criterion, a branch and link is taken to 
05X1/09 to move the symbol into the left margin. Upon 
return, R9 is loaded with a lower case *F* and another 
branch and link is taken to OSIU09 to move this also 
into the left margin. 



OSIROOl This routine will' provide oversize syrjibols for all 
oversize books except for those in class *Z'. *fo* is 
placed above the call number for books larger than the 
largest parameter, and 'f* is used for books larger than 
the smaller parameter. R15 is loaded wi *"h class letter 

and a branch is taken on R7 to OSIUOl, the class 
check routine. R8 ^nd R9 are loaded with the byte 
address of 'f» and *fo' respectively and a branch is 
taken, to OSIU0 3 to see if the book is oversize. 



OSIR00 2 This routine will place *f' in the left margin for 
all oversize books. A branch is taken on R7 to OSIU02 
to se-: up the height and width of the book. .^ft is 
loaded with the byte address of the stamp and c branch 
is taken to OSIU04 to see if the book is oversize. 
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OSJR00 3 This routine will provide in front of the 

, 'first cutter for all oversize books. R7 is used as the 
linking register to OSIU02 and OSIU0 5 to set up the 
heipht and v/idth of the book; and to check if the book 
Ls oversize. Tf the book is oversize, R9 is loaded 
with the byte address of the stamp. R15 is loaded 
with a 'H* to p].ice the stamp after the fourth element. 
A branch is taken to OSIU06 to move in the symbol. 



OSIR004 This routine will provide the symbol 'folio' for 
the larger bo .-ks and *quar* for books larger than the 
smaller set o^ oversize parameters. R7 is used as the 
linking register to branch to OSIU02 to set up the 
h-^ight and width of the book. R8 and R9 are loaded 
with the byte address of 'quar' and 'folio', respectively. 
A branch is taken to OSIU0 3 to check for oversize. 



OSIR005 This routine will provide the syniol 'FOLIO' for 
the larger books and 'QUAR' for the books larger than 
the smallest parameter. R7 is used as the linking 
i^egister to"0SIU02 to set up the height and width of 
the book. R8 and R9 are loaded with the byte address 
Qf the 'QUAR' stamp and the 'FOLIO' stamp, respectively • 
A_branch is taken to OSIU0 3 to check for oversize. 



OSIR006 This routine will provide the stamp 'f ' for the 

larger books and 'q' for books larger than the smallest 
oversize parameter. R7 is used as the linking register 
to OSIU02 to set up the height and width of the books. 
R8 and R9 are loaded with the byte address of the stamp 
'q' and the stamp *f', respectively. A branch is taken 
to OSIU0 3 to check for oversize. 



OSIR007 This routine will provide the symbol 'f* for all 
oversize books except for those in class 'M*. R15 is 
loaded with the class letter ""'M' and a brcinch is taken 
on R7 'to OSIUOl, the class check routine. R7 is used 
as the linking register to OSIU02 to set up the height 
and width of the book. R9 is loaded with the byte 
address of the symbol 'f , and a branch is taken to 
OSIUOH to check for oversize. 
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OS1R008 ihis routine will provide the symbol 'g' for the 

larger books and 'f for books larger than the smallest 
oversize parameter. R7 is used as the linking register 
to OSIU0 2 to set 41P the height and width of the book. 
R8 and R9 are loaded with the byte address of the 
symbol 'f and the symbol 'g', respectively. A branch 
is taken toOSIU03 to check for oversize. 



O3IR009 This routine will provide the symbol 'Folio' for 

all oversize books. Books in class 'N' have a different 
set of oversize parameters . R15 is set with the class 
letter 'N' and a branch is taken on R7 to OSl'uOl, 
the class check routine. R7 is used as a linking register 
to 0SIU0 2 to set up the height and width of the book. 
R9 is loaded with the byte address of the symbol 'Folio' 
and a branch is taken to OSIU04 to check for oversize. 
R5 is used as a working register to change the oversize 
parameters for books in class 'N'. 



OSlROlO This routine will provide the symbol '0' for all 
oversize books except for those books whicn have any 
non-PDT stamp #1. R7 is used as a working register 
to test for the presence of the stamp. R7 is used as 
a linking register to OSIU02 to set up the height and 
width of the book. R9 is loaded with the byte address 
of the symbol 'Q' and a branch is taken to OSIU04 to 
check for oversize. 



OSIROll This routine will provide the symbol 'XX' for all 
oversize books except fcT those books which have the 
non-PDT stamp 'ATLAS' ir 'DISC. R7 is used as a working 
register to test for the presence of a $b stamp. R2 is 
used as a wooing register to test for the stamp 'ATLAS' 
or DISC', R7 is- used as the linking register to OSIU02 
to set up the height and width of the book. R9 is loaded 
with the byte address of the symbol 'XX' and a branch 
IS taken to OSIU04 to check for oversize. 



0SIR012 This routine will provide the symbol 'F' for the 

larger books and 'Q' for books larger than the smallest 
^ySpf^^^ P^r^*<^^ unlass the book has the non-PDT stamp 

R..~ . R7 IS used as a working register to test for 
the presence of a $b stamp. R2 is used as a working 
register to test for the stamp 'REF', R7 is used as a 
linking register to OSIU02 to set up the height and width 
of tne book. R8 and R9 are loaded with che byte address 
of the symbol 'Q' and of the Symbol 'F' , respectively and 
a branch is taken to OSIU03 to check for oversize. 
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OSIRO]? This routine will provide the cymbol 'Fclio' for 

all oversize books with a non-PDT stamp #1. R7 is used 
as a working register to check for the presence of a 
$b stamp. R7 is used as a linking register to OSIU02 
TO set up the height and width of the book. R9 is 
loaded with the byte address of the symbol 'Folio' 
and a branch is taken to OSIU04 to check for oversize. 



OSIROm This routine will provide the symbol '*' at the end 
of the numeric portion of the call number for all 
oversize books. R7 is used as a linking register to 
OSIU0 2 and OSIU05 to set up the height and width of the 
book and to check for oversize. If the book is 
oversize, R9 rrs-Tuatled "with the byte address of the 
symbol. R15 is loaded with a '3' to indicate placement 
of the symbol after the third element. A branc.i is 
taken. to OSIU06 to move the symbol. 



0SIR015 This routine will provide the symbol 'QUARTO' for ~ 
all oversize books except those with a non-PDT stamp 
itl other than 'CHEM'. R7 is used as' a working register 
to check for the presence of the stamp. R2 is used 
as a working register to test for the stamp 'CHEM' . 
R7 is used as a linking register to OSIU02 to set up 
the height and width of the book. R9 is loaded with the 
byte address of the symbol 'QUARTO'. A branch is 
taken to 0SIU04 to check for oversize. 



OSIRO 16 This routine will provide the symbol 'F' for the 

larger books and 'Q' for books larger than the smallest 
oversize parameter for all oversize books which do not 
have a non-PDT stamp #1. R7 is used as a working 
register to check for the presence of the stamp. R7 
is used as a linking register to OSIU0 2 to set up 
the height and width of the book. R8 and R9 are loaded 
with the symbol 'Q' and the symbol 'F', respectively. 
A branch is taken to OSIU0 3 to check for oversize. 



OSIR017 This routine will provide the symbol 'folio' for 

all oversize books. R7 is used as a linking register to 
9SIUO2 to set up the height and width of the book. R9 
IS loaded with the byte address of the symbol 'folio'. 
A branch is taken to OSIUOU to check for oversize. 
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OCIR018 ThiG routine will provide the symbol in the left 

margin for all oversize books* R7 is used as a linking 
register to OSIU02 and OSIU05 to set up the height and 
width of the book and to check for oversize. If the 
book is oversize, R9 is loaded with the symbol *f'. 
R7 is used as a linking register to 0SIU09 to move the 
symbol into the left margin. 



OSIR019 This routine will provide the symbol for all 

oversize books. R7 is used as a' linking register to 
OSIU02 to set up the height and width of tne book. R9 
is loaded with the byte address of the symbol 'f*. 
A branch is taken to OSIUOU to check for oversize. 



OSIR020 This routine will provide the symbol 'OVERSIZE* for 
all oversize books. R7 is used as a linking register 
to OSIU02 to set up the height and width of the book. 
R9 is loaded with the byte address of the symbol 'OVERSIZE 
A branch is taken to OSIUOU to check for oversize. 



OSIR0 21 This routine will provide the symbjol 'F' fo. all 
oversize books. R7 is used as a linking register to 
OSIU02 to set up the height^'and width of the book. 
R9 is loaded with the byte address of the symbol 'F'. 
A branch is taken to OSIUOU to check for oversize. 



OSIR022 This rout're will provide the symbol ' + ' for all 
oversize books. R7 is used as a linking register to 
OSIU02 to set up the height and width of the book. R9 
is loaded with the byte address of the symbol A 
branch is taken to OSIUOU to check for oversize. 



OSIR023 This routine will provide the symbol 'q' in the left 
margin for all oversize books. R7 is used as a linking 
register to OSIU02 and OSIU05 to set up the height and 
width of the book and to check for oversize. R9 is 
load*^ i with the syjiiol . R7 is used as a linking 
r to OSIU09 to move the symbol into the left 
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OSIK0 24 This routine will provide the syinbol 'Folio' for 

all oversize books and will also create one extra o.iru 
for all oversize books. R7 is used as a linking 
register to OSIU02 and OSIU05 to set up the height and 
width of the book and to check for oversize. Tf the 
book is oversize, 'FMTDATA' is incremented by 1 to 
create an extra card and R9 is loaded with the byte 
address of the symbol 'Folio'. A branch is taken to 
CSIJ04 to set up the registers and move the symbol. 



OSIR025 This routine will provide the symbol '0-SIZE' for 
all oversize books. R7 is used as a linkiiig register 
to OSIU02 to set up the height and width of the book. 
R9 is loaded with the byte address of the symbol '0-SIZE' 
A branch is taken to 0SIU04-to check for oversize. 



OSIR026 This- roytifte will provide the symbol 'F' for the 
Smallest oversize books, 'FF' for the larger oversize 
books, and 'FFF' for the largest oversize books. R7 
IS used as a linking register to OSIU0 2 to set up the 
height and wiuih-af the -book. R8, R6 , and R9 are loaded 
with the byte address of- the symbol 'F', of the symbol 
[FF', and of the symbol 'FFF', respectively. A branch 
is taken to OSIUlO to check for oversize. 



OSIR02 7 This routine will provide the syn±iol 'f for the 
larger oversize books and 'q' for books larger than 
the smallest oversize parameters, both of which will go 
into the left margin. R7 is used as a linking register 
to OSIU02 to set up the height ana width of the book. 
R8 and R9 are loaded with the symbols, 'q' and 'f , 
respectively. R7 is used as a linking register to 
OSIUll and 0SIU09 to check for oversize and to move 
the symbol into the left margin. 



OSIR02 8 This routine will provide the symbol 'q' for the 
smaller overside books, 'f for the larger oversize 
books, and 'ff for the larfrest books; all of which will 
go Into i:he left margin. R7 is used as the linking 
register to OSIU02 to set up the height and width cf 
the book. R8 and R9 are loaded with the symbol 'q' and 
the symbol 'f , respectively. R7 is used as a linking 
register to 0SIU12 and 0SIU09 to check for ovex-size 
and to move the symbol into the left margin. 
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OSIK0:.''3 This routine will provide the symbol 'q' in iront 

of the first cutter Ln the left margin for all oversize 
books. R7 is used as a linking register to OSIU02 and 
OSIU05 to set dp the height and width of the book and 
to check for oversize. If the book is oversize, R14 
is loaded with a '1' (one) to serve as a switch in the 
move routine. R7 is used as ,! linking register to OSIU09 
to move a 'q' in the left margin in front of the first 
cutter . 



OSIR0 30 This routine will provide the symbol 'Folio' for all 
oversize books that do not have either of the non-PDT 
stamps. R7 is used as a working register to test for 
the presence of the $b or $c stamp. If no stamp is 
present, R7 is used as a linking register to OSIU02 to 
Get up the height and width of the book. R9 is loaded 
with the byte address of the symbol 'Folio'. A branch 
IS taken to OSIU04 to check for oversize. 



Of'IR0 31 This routine will provide tlie symbol 'Folio' for 
all oversize books except for those in class 'ML' or 
class ^'MT'. R15 is loaded with the class letter 'ML' 
then 'MT'. R7 is used as a linking register to OSIUOl, 
the class check routine. R7 is used as a linking 
register to OSIU02 to set up the height and width of the 
book. R9 is loaded with the byte address of the stamp 
'Folio'. A branch is taken to-0SIU0i4 to check for 
oversize . 
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CSIR032 Tliis routine will provide the symbol T' for Idr^er . 
oversize booki: or ''Q' for the smaller oversize books. 
The symbol will appear in front of the LC class alphn. 
R7 is used as a linking register to 0SIU02 to set up 
the height and width of the book. R8 and R9 are loaded 
with the byte address of the symbols 'Q' and 'F' , 
respectively. R7 is again used as a linking register 
to OSIUll to check for oversize. A branch is then taken 
to 0SIU06 to move the symbol in front of the first 
element of the call nunier. 



OSIR03 3 This routine will provide a 'q' for the smallest 
oversize books, an* 'f ' for the larger books,- and an 
' f f for the largest oversize books, R7 links to 0SIU02 
to find the height and width. R6 , R8, and R9 are loaded 
with the byte address of the symboles 'f, 'q', and 'ff , 
respectively. A branch to OSIUlO checkes for oversize 
for three sets of parms . 



0SIR031* This routine provides the symbole 'Oversize' for all 
oversoze books in classes 'M' and 'N'. R15 is loaded 
with the class CM' or 'N') and R7 links to OSIUOl, 
the class check routine. If either class is found, a 
BAL on R7 to 0SIU02 sets up the height and width, R9 
is loaded with the byte address of the symbol 'Oversize 
and a branch is taken to OSIUOU to check for oversize. 



f OSIR035 This routine will provide the symbol 'q' for all 

oversize books except those with a non-PDT stamp 
'Ref':R7 is the working register for determining if the 
r stamp is 'Ref or not. If it is not 'Ref, R7 links 

' to 0SIU02 to set up the height and width. R9 is then 

loaded with the byte address of the symbol 'q' and a 
^ branch is taken to 0SIU04 to check for oversize. 



I OSIRO^e This routine will provide the symbol 'F' for all 

^ oversize books that do not have the stamp 'Ref or are 

not clann 'N'. R15 is loaded with the class and R7 
i links to OSIUOl, the class check routine. R7 is then 

i used as the working register to check for a stamp; R2 is 

the working register to check fo:^ 'Ref. If there is no 
I stamp or the book is not in class 'N', R7 will link 
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0SIR035 (cont'd) to 0SIU02 to set up the height and widtii . 
while R9 is loaded with the symbol 'F'. A branch is 
taken to 0SIU04 to check for oversize. 



OSIP037 This routine will provide the symbol 'Q' for all 

oversize books. R7 links to 0SIU02 to get the height 
and width, R9 is loaded with the byte address of the 
stamp; a branch is taken to 0SIU04 to check for oversize. 



OSIR038 This routine provides the symbol 'Folio* above the 
call number for the larger oversize books and a 't' 
in front of the first element of the call number for the 
smaller oversize books. R7 links to 0SIU02 and gets 
the height and width of the book. R9 and R8 are loaded 
with byte address of 'Folio' and 't' , repectively. 
A BAL on R7 to OSIUll checks for oversize. Upon return, 
R9 contains the oversize symbol. If it is * Folio' a 
branch is taken to 0SIU04A; if 't', a branch is taken 
to 0SIU06. 



0SIR039 This routine will provide the symbol 'oversize' 

for all oversize books. R7 links to 0SIU02 to set up 
the ehight and width; R9 is loaded with the byte address 
of the symbol, and there's a branch to 0SIU04 to check 
for oversize. 



OSIR040 This routine will provide the symbol 'oversize' 

for all books in class 'N'. R15 is loaded with the class 
letter and R7 links to OSlUOl to check the class. A 
BAL on R7 to 0SIU02 sets up the height and width. R9 
is loaded with byte address of 'oversize', and the 
routine 0SIU04 checks for owersize. 



OSIR043 This routine will provide the synibol 'tt' for larger 
oversize books and 't' for the smaller ovei'size books. 
R7 links to 0SIU02 to set up the height and width. R8 
and R9 are loaded with the byte address of the symbols 
't' and 'tt', respectively. A branch taken to 0SIU03 
checks for oversize. 
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0SIR0U4 This routine will provide the symbol 'folio* for 

the larger oversize books and 'oversize' for the smaller 
books. R7 links to 0SIU02 to get the height and wid^h. 
The byte address of the symbols 'oversize' and 'folio' 
are loaded into R8 and R9 respectively. The branch to 
0SIU03 checks for oversize. 



0SIR045 This routine provides the symbol 'FF' for the largest 
oversize books, an 'F' for the smaller books, and a 
'Q' for the smallest oversize books. A BAL on R7 
tc 0SIU02 sets up the height and width, while R6 is 
loaded with the byte address of the symbol 'F', R8 
with the byte address of 'Q', and R9 with the byte 
address of "ff". A branch is taken to OSIUOlO to check 
for oversize for a set of three parms. 



0SIR046 This routine provides the symbol 'ff for the larger 
oversize books and an 'F' for the smaller books. R7 
links to 0SIU02 to set up the height and width. R8 
and R9 are loaded with the byte address of 'F' and 
'FF', respectively. A branch to 0SIU03 checks for an 
oversize bock. 

0SIR047 This routine will provide the symbol 'f in the left 
margin in front of the first cutter for all oversize 
books. R7 links to OSIU02 to set up the height and width 
of the book and then R7 links to OSIUttS to check for 
oversize. If the book is oversize, R14 is loaded with 
a '1' to indicate that the symbol is to go in front of 
the first cutter where the first cutter is the first 
element that begins with a decimal followed by at least 
one alpha. R15 is loaded with an 'f and R7 links to 
0SIU09 to move the symbol inco the left margin. 



0SIR048 This routine provides the symbol 'Oversize' for aJl 

oversize books. R7 links to 0SIU02 to set up the height 
and width; R9 is loaded with the byte address of 
'Oversize'; 0SIU04 checks for an oversize book. 
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OSIR0U9 This routine will provide the symbol for the larger 

oversize books and *q' for the smaller ones. The 
symbol will appear in the left margin in front of th^i 
first cutter. R7 links to OSIU02 to set up the height 
\ and width of the book. R8 and R9 are loaded with symbols 
^ 'q' and 'f' respectively. R7 links to OSIUOll to check 
for oversize. If the book is oversize, R14 is loaded 
with a '2* to indicate to the move routine that the 
symbol is to go in iront of the first cutter where the 
first cutter is identified as the second element that 
is one alpha followed by at least one numeric, R7 
then links to OSIU09 to move the symbol into the left 
margin. 



OSIR050 This routine will provide the symbol 'q* for all 

oversize books. It will appear in the left margin in 
front of the first cutter where the first cutter is 
identified as the second element that has one alpha 
followed by at least one numeric. R7 links to OSIU02 
to set up the height and width of the book. R7 then 
links to OSIU0 5 to check for oversize. If the book is 
oversize, Rm is loaded witL a *2' to indicate to the 
move routine to place the symbol in front of the first 
cutter and how to identify the first cutter. R15 is 
loaded with the 'q* .and R7 links to 0SIU09 to move the 
symbol. 
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SUBROUTINE: RLADMAST 



KEADMAST r;oarchei5 the di:sk data base ug inp the Librntv 
ol Congress card number and reads a biblioj^ranhy file rocor^'. 
KIIADMAST constructs the function parameter table- (FPT*s) for 
and issues a CAL3,2 to search the indexes, lock, and unlock 
the OCLC number index for the LC card number. After the index 
entry ic found, a CAL3,U is issued to read a bibliography record. 
The record is read into a user-supplied buffer, and a pointer 
to the index is returned to the user along with status information 
about the completion of the read operation. 

Upon entry to READMAST, the user parameter list contains 
a pointer to a double-word aligned workarea. After the FPT*s 
for the CAL3*s are constructed, they are stored in the workarea. 
The Library of Congress card number index is then searched 
using the user-supplied packed LCCN search key. The LCCN index 
entry allows access to the OCLC number index for this LCCN. If 
more than one LCCN entry is found for the same number, a code is 
returned at completion. The first entry for the LCCN is used 
to search for the OCLC number. 

Before the OCLC number entry is read, a LOCK is requested 
on the entr ' -nain to prevent its use by other tasks until after 
READMAST is finished with it. Then the OCLC number entry is 
read. This provides a pointer to the bibliography record for the 
LCCN in question. If the OCLC number read was successful, a 
CAL3,H is issued to read the bibliography record. Then the OCLC 
number entry chain is unlocked, and control is returned to the 
calling program. 

If an error is detected for any of the reads, a compleition 
code is set and control is returned. An error is also declared 
if the index entry for a number cannot be found. 
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SUBROUTINE: FVADIlAf/r 



SOFTWARE INTERFACE 



A . LINKAGE 



LI,R8 READPARM 
BAL,R7 READMAST 

PARAMETER LIST DESCRIPTION 



RES 


1 


STATUS 


PZE 


BUFFER 


WA( BUFFER) 


PZE 


WRKAREA2 


WA(WORKAREA) 


PZE 


U096 


MAX BUFF. SIZE 


PZE 


INDEX 


WA( INDEX TO RECORD) 


PZE 


PCKDLCCN 


^ WA( PACKED LCCN SEARCH KEY) 



Where WORKAREA is an area of 30 2 words aligned on a doubleword 
boundary; PUFFER is a 10 24 word area; and INDEX is one word. 

C. RETURN CODES - 

I'he status of the read operation is returned in the first 
halfword of the user parameter list. 

STATUS = X'8000' - NORMAL COMPLETION, NO DUPLICATE KEYS 

IN THE LCCN INDEX FILE 
X'8001' - NORMAL COMPLETION - DUPLICATE LCCN KEYS 

HAVE BEEN FOUND AND FIRST BIBLIO. RECORD 
READ 

X'COOO^ - LCCN KEY NOT YET ENTERED INTO THE INDEX 
FILE 

X'CQOl' - BIBLIO RECORD READ ERROR - ONE OR MORE KEYS 
DOES EXIST IN THE INDEX FILE 

X'C002' - READ ERROR OCCURED WHILE SEARCHING FOR 
THE INDEX 

X'C003' - READ ERROR OCCURED WHILE READING THE 
OCLC# CONTROL FILE 

D. OTHER ENTRY POINTS - none 

L. OCLC SUBROUTINES REFERENCED - none 



F. OCLC PROCEDURES REFERENCED - none 
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PPOGRAM: CNVT 
SUBROUTINE: FMTRLC 



FUNCTIONS 



FMTREC performs final housekeeping on the data to be 
output by CNVT and builds the output records for each catalog 
card production request. 

After setting up parameters upon entry, FMTREC builds the 
output record leader. Then the variable length data fields 
are moved to the output buffer. The following cleanups are 
made on the data fields: 

1) field indicators are added if missing. 

2) indicators are unpacked if existant. 

3) a **a' subfield delimiter and code are added if the 

text portion of a field begins with no*** delimiter. 

H) the 2U0 tag is changed to a 130 tag in the absence 

of a IXX tag. Indicators are not changed. 
5) the 690 tag is chcinged to a 650 tag. Indicators are 
not changed. 

( 

Field lengths are adjusted to account for all modifications. 
Each variable length field is processed and inserted in the 
output buffer in the order in which it appears in the forward 
link chain, LNKl, in CNVT. Processing is stopped when the link 
points back to the input record leader. 

At the end of processing a record terminator is inserted 
at the end of the record. Control is then returned to CNVT. 
The following parameters are passed back to CNVT. 

I) Output record length 

2) Status bits indicating whether or not an error was 
encountered while formatting the record. 



PROGRAM: CNVT 
VIII. 47 SUBROUTINE: FMTKLH 



oOrTWARE INTERFACE 

A. LINKAGE 

Control is passed to FMTREC from CNVT using the 
following sequence: 

LI,R8 PARMLIST 
BAL,R7 FMTREC 

B. PARAMETER LIST DESCRIPTION 

The following list of parameters is passed to FMTREC. 

j> 

PARMLIST GEN, 4, 12, 16 0,0,0 STATUS/.../... 

DATA LNKDV LINK DIRECTORY'S 

DUPE VECTOR 
DATA WA( UNPACKED CARD NO) 

DATA FMTDATA WA(PDTNO, INDICAT, 

RESERVED BYTES) 
DATA BA( OUTPUT BUFFER) 

DATA :BUFSZ LENGTH OF OUTPUT BUFFER *^ 

DATA FMTLEN RETURN RECORD LENGTH 

Where STATUS bits Or 3 have the following meaning. 

CCl - 4 = 0 NORMAL COMPLETION 

CCl - =1 PROCESSING ERROR 

CC2 - =1 BUFFER OVERFLOW 

CC3 - =1 ... 

CC4 - =1 ... 

C. RETURN CODES - see status bits in parameter list above. 

D. OTHER ENTRY POINTS - none 

E. OCLC SUBROUTINES REFERENCED - none 



F. OCLC PROCEDURES REFERENCED - none 



VIII. 48 



PROGRAM: CNVT 
SUBROUTINE: CBlLo 



FUNCTIONS 

CBIEB cor>ver1... variable-length binary fields to T.CDIC. 
The user specifies wliat sign is to be given to the result 
and what fill character is to be used in padding the field, 
error conditions ai^'e encountered when there is an overflow 
condition in the output field or when the output field is 
not large enough to contain the sign. The return code is 
posted in the first two bytes of the parameter list upon 
return. 
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PROGRAM: CNVT 
SUBROUTINE: CBIEB 



L-OFTWARE iNTRtrtCE 



A. LINKAGE 

The calling sequence is 

LI,R8 CB FARMS 
BAL,R7 CBIEB 

B. PARAMETER LIST DESCRIPTION 

CBPARMS DATA BA( BINARY FIELD TO BE CONVERTED) 

DATA,1 WIDTH, FILL, PLUS, MINUS 

DATA BA( OUTPUT FIELD) 

C. RETURN CODES 

The return code is found in bytes 0 and 1 of CBPARMS. 

BYTEO - X'80' Normal completion 

BYTE1,= X'OO' 

BYTEO = X'CO' ERROR 

BYTEl = X'Ol' NO ROOM IN FIELD FOR SIGN 

BYTEO = X'CO' ERROR 

BYTEl = X'02' FIELD OVERFLOW 

D. , OTHER ENTRY POINTS - none 

E. OCLC SUBROUTINES REFERENCED - none 

F. OCLC PROCEDRURES REFERENCED - none 
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PROGRAM: CNVT 
SUBROUTINE: LOGMo.. 



FUNCTIONS ' / 

LOCMSG foiMnd.o and printr; a lor entry for each OCLC 
r<^corJ numlHT wnich is SPlecLed foi^ catalog card production. 
A lur, entry on Lhe CNVT Lo;^, consists of th»^ OCLC Control 
number, the color code, and tiio iiolding library code followed 
by d Statistical code showin^i whether the record was selected 
(SLD) or rejected (RJD). LOGMSG also prints diagnostic 
messages when required by GNVT. 
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PROGRAM: CNVT 
SUBROUTINE: LOGKSG 



SOFTWARE INTERFACE 

A. LINKAGE 

Control is transferred from CNVT via a 

BAL,R7 LOGMSG 

This instruction must be inunediately followed bv the 
parameter list described below. Upon entry to LOGMSG, R7 
points to the parameter list. 

B. PARAMETER LIST DESCRIPTION 

The following list of parameters must be passed to LOBMSG. 

GEN, 8, 214 FUN, BA( MESSAGE) 

DATA WA( UNPACKED LC CARD NUMBER) 

DATA WA(COLOR CODE) 

DATA WA( LIBRARY CODE) 

Where the byte indicator 'FUN' may assume the following 
values : 

FUN = 0 Print message only, do no logging. 

= 1 Log as selected before printing a message. 

= 2 Log as missing before printing a message. 

= 3 Log ^s rejected before printing a message. 

= 15 Eject page when printing a message. 

No message will be printed if BA( MESSAGE) is equal to zero. 

C. RETURN CODES - none 

D. OTHER ENTRY POINTS - none 

E. OCLC SUBROUTINES REFERENCED - none 

F. OCLC PROCEDURES REFERENCED - none 



VTir . 52 



PROGRAM: CNVT 
SUBROUTINE: LINl 



FUNCTION J 

'^INK initially builds a link directory of addresses, 
lengths, and tags for the variable data fields of the input 
recorc for CNVT. Then at its alt ^.rnate entry points, LINKINST 
and L LT it respectively inserts or deletes an entry in 
its a .ry. 

LINK is entered after a record has been read and its leader 
processed by CNVT. Included in the parameters passed are the 
byte address of the record and the word addresses of the areas 
in CNVT where the directories are to be built. LINK systematically 
scans the variable length data fields, one field at a time 
and stores the field's byte address and length and its tag in 
the tables LNKBA(byte address and length) and LNKTAGC tags ) . 
Two tables of index values are kept as a directory to the 
tables, LNKBA and LNKTAG. The directory provides forward 
and backward links among the fields and tags. A duplicate 
sex of index tables (a duplicate directory) is built as the 
wprking directory is built. The duplicate directory is 
retained 'as a map of the original record during processing. 
When the end of the record is encoantered, the directories 
are complete. The total number of entries in the directory 
(the largest index entry in the forvjard link table) is stored 
at the beginning of the backward link tables and in LNKTAG. 
An error condition arises when no delimiter is found for a 
field. In. this case a condition code of X'80' is returned 
in the status byte of the parameter list. Otherwise, for 
normal returns, the status byte is set to zero and control is 
returned to the calling program. 

When LINKINST is entered the parameter list contains the 
word addresses of the directory and tables; but instead of tne 
byte address of the input record, an index into the forward 
link table is present to indicate where the new field is to be 
inserted. Also present is a pointv^r to the byte address of 
the field to be inserted, its length and its tag. Upon entry 
the total number of directory entries is incremented by one. 
This value will be the index value for the new field. The 
index value in the parameter list is used to get a forward 
and backward link to the field immediately following where 
the new field is to be inserted. The index for the existing 
field is moved to the end of the directory, and the new index 
is inserted ir its place. Then the byte address and length 
of the new field are stored as the last entry in LNKBA, and 
the tag becomes the last entry in LNKTAG. The total number 
of directory entries is brought up to date. An error occurs 
if the index in the parameter list is greater than the number 
of entries in the directory. In this case the status byte in 
the parameter list is set to X'80' and control is returned. 
Upon normal completion the status byte is set to zero, and 
control is returned. 
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PROGRAM: CNVT 
SUBROUTINE: LINK 



When LINKDLT is entered, the parameter list still contains 
the word addresses for the directory and tables in CNVT. An 
index is also present to the forward link directory indicating 
the field to be deleted. To delete the field, the index 
entries in the directory for the field are nullified. This is 
accomplished by setting the index value for the field in the 
forward links equal to that immediately following it in the 
directory. The index value for the field to be deleted in 
the backward links is set equal to the index value immediately 
preceding it. The lengths of the directories are not changed. 
An error is declared if the index value in the parameter list 
IS greater than the total number of entries in the directory. 

■tWs condition is encountered, the status byte in the 
parameter list is set to X'80' and control is returned. For 
normal completion, the status byte -is zeroed and control is . 
returned to the calling program. 
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PROGRAM: CNVT 
SUBROUTINE: LINK 



SOFTWARE INTERFACE (LINK) 

A. LINKAGE 

Control is transferred to LINK by the following 
sequence of instructions. 

LI,R8 LNKPARMS 
BAL,R7 LINK 

B. PARAMETER LIST DESCRIPTION 

LNKPARMS GEN, 4, 12, 16 0,0,0 STATUS /ERROR NO ./.. . 

DATA BA( INPUT RECORD) 

GEN, 8, 24 0,LNKDV LINK DIRECTORY 

DUPE VECTOR 

Where LNKDV is the following list 

LNKDV EQU $ LINK DIRECTORY DUPE VECTOR 

DATA WA( INITIAL SIZE OF LINKED DIRECTORY) 

DATA WA(LINK TAG TABLE) 

DATA WA(LINK BYTE ADDRESS AND LENGTH TABLE) 

DATA WA( FORWARD LINKS 1) 

DATA WA( BACKWARD LINKS 1) 

DATA WA( FORWARD LINKS 2) 

DATA WA( BACKWARD LINKS 2) 

C. RETURN CODES 

The status byte in LNKPARMS reflects the completion of LINK. 

STATUS = X'OO' Normal completion 

= X'80' Invalid or mir.sing field 
delimiter encountered 

D. OTHER ENTRY POINTS 

LINKINST 
LINKDLT 

E. OCLC SUBROUTINES REFERENCED - none 



F. 



OCLC PROCEDURES REFERENCED - none 
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PROGRAM: CNVT 
SUBROUTINE: LlNr> 



SOFTWARE INTERFACE ( LINKINST) 



A. LIMKAGE 

Calling Sequence is 

LI,R8 LNKPARMI 
BALMR7 LINKINST 

B. PARAMETER LI SI DESCRIPTION 

LNKPARMI DATA WA( FIELD BYTE ADDRESS, LENGTH, TAG) 
DATA INDEX INTO DIRECTORY FOR FIELD 

PRECEDING FIELD TC BE INSERTED. 
DATA LNKDV 

Where LNKDV is the same as for LINK. 

C. RETURN CODES 

The first byte of LNKPARMI is used as the status byte 
on return from LINKINST. 

STATUS = X'OO' Normal completion 

= X'80' Index for entry to be inserted is 
greater than total no. of entries 
in the directory. 

D. OTHER ENTRY POINTS - none 

E. OCLC SUBROUTINES REFERENCED - none 



F. 



OCLC PROCEDURES REFERENCED - none 
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ProRrdm: CNVT 
Subroutine : I ! \K 



.SOTTWARC INTERFACE ( LINKDLT) 



A. LINKAGE 

Calling sequence is 

LI,R8 LNKPARMD 
BAL,R7 LINKDLT 

B. PARAMETER LIST DESCRIPTION 

LWKPARMD GEN, 11,12,16 0,0,0 STATUS /ERROR NO./ . . . 

DATA Index into directory for field 

to be deleted. 
DATA LNKDV 

Where LNKDV is the same as ior LINK. 

C. RETURN CODES 

The status byte in LNKPARMD reflects the completion of 
LINKDLT. 

STATUS = X'OO' Normal completion 

=X'80' Index for entry to be deleted is 

greater than total no. of entries 
in directory 

D. OTHER ENTRY POINTS - none 

E. OCLC SUBROUTINES REFERENCED -none 

F. OCLC PROCEDURES REFERENCED - none 
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SUBROUTINE: 



TAPEIO 



1 UNC I' 1 ON S 

TArCl 0 i:> p.cneral purpose input/output subroutine which 
pei'formG tlie following functions depending, on a function 
code passed from the calling program. 



TAPEIO sets up the FPT to be used in lOEX CAL2 from^ 
parameters passed by the calling program. If the function 
required does not involve data transfer (in the range of 
codes 3-9), the only parameters needed by TAPEIO are the 
function code, the unit address, and an event word. If 
data transfer is to be performed (codes 0,1,2), TAPEIO 
must also have the address of a buffer and the length of the 
data to be read or written. Upon entry to TAPEIO, general 
register 1 should be pointing to a user-defined work area 
on a double word boundary. 

If the function td be performed involves data transfer 
or is a WEOF, two function parameter tables (FPT^s) are 
set up. The first FPT is for the operation requested; the 
second is used to sense the device status in the event the 
requested operation does not end normally. For non-data 
transfer functions, only one FPT is constructed. 

TAPEIO contains its own end action routine, STDEA. 
STDEA uses the Test Device (TDV) status returned by the lOEX 
CAL2 to determine the end action required. If the I/O 
operation terminated normally, the first oyte of the event woi 
in the first FPT is set to X*80* and control is returned. 
If the operation ended abnormally, the TDV status is 
interrogated more closely to determine the exact result of 
the operation . 



FUNCTION CODE 



FUNCTION 



X'OO 



READ 
WRITE 

READ REVERSE 
WEOF 

SKIP ONE RECORD FORWARD 
SKIP ONE RECORD BACKWARD 
SKIP ONE FILE FORWARD 
SKIP ONE FILE BACKWARD 
REWIND (ONLINE) 
UNLOAD 



01 
02 
03 
OH 
05 
05 
07 
08 
09 



A table of TDV s :atus values and their meanings follows: 



SUBROUTINE: TAPIO 
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TDV STATUS 



EXPLANATION 



B87E 
OOOE 
0010 
2000 
1000 
8000 
0800 
OOUO 
0020 



0200 



0400 



NORMAL TERMINATION BEYOND END 
OF TAPE 

NORMAL TERMINATION AT BEGINNING 
OF TAPE 

NORMAL TERMINATION 
lOP ERROR 

MEMORY ADDRESS ERROR 
WRITE PROTECT VIOLATION 
END OF FILE 
DATA OVERRUN 

NON-CORRECTABLE READ ERROR 
TRANSMISSION DATA ERROR 
TRANSMISSION MEMORY ERROR 



A TDV status of 'B87E' initiates the return of a normal 
completion code (X'80') to the user. If the status is '1000', 
an end of file indication is returned. If the TDV status is 
'OOOE', '0010', or '2000', the error is not attributed to the I/O 
device; and no retry is attempted. If the status is one of the 
last four in the table, the retry count is interrogated. The 
retry count is arbitrarily set in TAPEIO to ten for data transfer 
operations (function codes 0-2) and WEOF (code 3) and is set to zero 
for non-data operations (codes 4-9). If the retry count for this 
operation is zero, an abnormal return code is posted, and control 
is returned to the calling program. If the retry count is greater 
than zero, retry procedures are initiated based on the type of 
I/O function that was attempted. 

If the status is '0200' or '0400*, a code is returned to 
indicate the position of the tape. 

If the operation was a READ and the error is correctable 
(TDV status of '8000', '0040', or '0020'), the second FPT is pulled 
from the work area and used to sense the device. If the sense 
does not take, an unconditional backspace and retry are initiated; 
otherwise STDEA will alternately backspace, or forward space (de- 
pending on whether the READ was forward or reverse), sense, retry, 
and sense until either the retry count is zero or the I/O opera- 
tion has been performed. If the retry count reaches zero before 
the operation has been terminated normally, the condition code 
returned is the result of the last retry. 

If the operation was a READ but the error was declared non- 
corrf'Ctable (TDV status '0800'), STDEA initiates an unconditional 
retry. It backspaces, or forward spaces if the operation was 
READ REVERSE, and attempts to READ again. The TDV status is 
interrogated after each retry of the READ, If the error status 
becomes correctable before the retry count is zero, STDEA will 
initiate sensing of the device and the correctable READ error 
procedure. In any case, retry continues until the operation is 
completed normally or the retry count reaches zero. If the 
retry count becomes zero before the operation has terminated 
normally the condition code returned is the result of the last retry. 
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SUBROUTINE: TAPETO 



If the operation was a WRITE or WEOF, STDEA automatically 
backspaces, senses, and attempts the operation again. This 
procedure continues until the I/O is complete or the rexry 
count is zero. If the retry count reaches zero before the 
operation has been terminated normally, the condition code 
returned is the result of the last retry. 

At its alternate entry point, TAPEWAIT, TAPEIO checks 
for completion of an I/O operation performed by TAPEIO. If 
the event is not complete TAPEWAIT issues a CAL2,9 0 to wait 
for completion. When the event is posted complete, the 
status is interrogated. If the completion is normal (X'80'), 
control is returned to the return address plus one. If the 
completion is abnormal (X'CO') control is returned ut the 
return address. In either case BYTEO of the evei't word is 
returned in bits 24-31 of R8. 



SUBROUTINE: TAPETO 
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GOFTWARE INTERFACE 

A. LINKAGE 

The calling sequence for TAPEIO is as follows : 

LI,R1 WORKAREA 
LI , R8 FARMS 
BAL,R-7 TAPEIO 

Where WORKAREA is a 16-word storage area aligned on 
a doubleword boundary. 



B. PARAMETER LIST DESCRIPTION 

For function codes 0, 1, 2 



WORD 


0 


''function 


DEVICE 


ADDRESS "^ 


WORD 


1 


BA (bUFFER) 


WORD 


2 


BYTE COUNT 


WORD 


3 


EVENT STATUS 


J 



For functions 3-9 



WORD 


0 


FUNCTION 


DEVICE ADDRESS^ 


WORD 


1 


EVENT STATUS 


J 



C. RETURN CODES 

NORMAL COMPLETION: EVENTWORD BYTE 0 = X'80' 

BYTE 1 = X'OO' 

ABNORMAL COMPLETION: EVLNT WORD BYTE 0 = X'CO' 

BYTE.l = XX - CODE INDICATING 
NATURE OF ABNORMAL COMPLETION. 

Possible event words for abnormal completion and their 
meanings are listed below: 
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SUBROUTINE: TAPLK^ 



EVENT WORD 


TDV STATUS 


MEANING 


COOl 


0200 


NORMAL TERMINATION 






BEYOND END OF TAPE 






MARKER 


C002 


0400 


NORMAL TERMINATION 






AT BEGINNING OF TAPE 


CO OA 


OOOE 


TOP ERROR 


pfi n Q 
LU u y 


U U iU 




CO 0 8 


2000 


WRITE PROTECT VIOLATION 


C003 


1000 


END OF FILE 


CO 0 7 


8000 


DATA OVERRUN 


C004 


0800 


NON-CORRECTABLE READ 






ERROR 


COOS 


0040 


TRANSMISSION DATA 






ERROR 


C006 


0020 


TRANSMISSION MEMORY 






ERROR 


COOO 




UNIT UNRECOGNIZED 


COOB 




SOFTWARE ERROR 


For codes 


C000-C003 and C008-C00B, 


no retry has? been 



attempted. For codes C004-C007, retry has been attempted only 
if tha function was a data transfer or WEOF. 

D. OTHER ENTRY POINTS 

TAPEWAIT 

E. OCLC SUBROUTINES REFERENCED - none 



F. OCLC PROCEDURES REFERENCED - none 
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SUBROUTINE: TAPEIO 



'JOFTWARC IHTLRrACE (TAPEWAIT) 

A. LINKAGE 

LI,R8 FARMS 
BAL,R7 . TAPEWAIT 

B. PARAMETER LIST DESCRIPTION 

same as for TAPEIO 

C. RETURN CODES: 

BYTE 0 of the user provided EVENT WORD is returned in 
bits 21+-31 of R8 

D. OTHER ENTRY POINTS - none 

E. OCLC SUBROUTINES REFERENCED - none 

F. OCLC PROCEDURES REFERENCED - none 
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PROGRAM: CN\/T 
SUBROUTINE: RKADbC 



FUNCTIONS 



RHADSC reads and interpret:: select cards input to CNVT 
in the offline mode. The Library of Congress card numbe!^ 
and the library code are stored in areas provided by the user. 
TliG color code and function code are converted to binary and 
stored in user fields. Then the remainder of the card is 
scanned for a X'EO'wliich denotes the beginning of each subfield. 
When the field delimiter is encountered, the following character 
is interrogated to determine what type of field is present. 
A X'4E' denotes the stamp field, X'60' denotes copies, X'7E' 
denotes user data, and X'SC denotes text. When a field type 
is recognized, the tag fo^^ that field is stored in the user 
area and the data length, data, and a subfield delimiter are- 
moved in. This procedure is repeated for each valid field 
type until a X'4F' is encountered, signaling the end of the 
fields. Error conditions are as follows: 



1. Read error 

2. Invalid character found in card column ?6 

3. Invalid character found in card column 20 

M. The card subfield has overflowed the user storage area 



For all error conditions the status byte in the user parameter 
list is set to X*80' before returning. For normal completion 
the status returned is X'OO'. 



rKLK-.RAM: CNV' 
GUBKOUTINF:: KLAi)b. 



:.:urTWAHK INTERFACE 

A. LINKAGE ' 

Control is transferred to READSC via the following 
inotructlons . 



LI , R8 
BAL,R7 



RDSCPARM 
READSC 



rAPAMETER LIST DESCRIPTION 



RDSCPARM 



EQU 


$ 






DATA 


0 


STATUS 


DATA 


WA(USER 


AREA FOR OCl-C NO. ) 


DATA 


WA(AREA 


FOR 


LIBRARY CODE) 


DATA 


WA(AREA 


FOR 


COLOR CODE) 


DATA 


WA(AREA 


FOR 


FUNCTION CODE) 


DATA 


WA(AREA 


FOR 


TAG 1) 


DATA 


WA(AREA 


FOR 


TAG 2) 


DATA 


WA(AREA 


FOR 


NO. OF EXTRA CARDS) 


DATA 


WA(AREA 


FOR 


STAMP SUBFIELD) 


DATA 


WA(AREA 


FOR 


EXTRA COPY SUBFIELD) 


DATA 


WA(AREA 


FOR 


TEXT SUBFIELD) 


DATA 


WA^AREA 


FOR 


USER DATA SUBFIELD) 



C. RETURN CODES 

STATUS ? X'OO' 
= X'80' 



NORMAL COMPLETION 

ONE OF THE FOLLOWING ERRORS HAS OCCURRED 

1. READ ERROR 

2. INVALID CHARACTER IN CARD COLUMN 20 

3. INVALID CHARACTER IN CARD COLUMN 25 
H. CARD SUBFIELD HAS OVERFLOWED USER 

STORAGE AREA 



D. OTHER ENTRY POINTS - none 

E. OCLC SUBROUTINES REFERENCED - none 



r. OCLC PROCEDURES REFERENCED - none 



PROGRAM: CNVT 
SUBROUTINE: PUNCliSC 



TUNCHSC formats card:, lor CNVT whicli will be used to select- 
out tlie input cards for wiiich catalog cards were produced. Upon 
entry to PUNCHSC, the first two words of the Library of Congress 
card nuniber are stored in the next available position in the 
output buffer. The final word of the L.C. card number and the 
noldin^t^ library code are formatted to insure the proper position 
of the library code; then the two fields are stored in the output 
buffer. The index to the output buffer is advanced, and control 
is returned to CNVT. When the output buffer is full, it is 
written to the output device. 

At itvS alternate entry point, CLOSESC, the output buffer is 
padded to its maximum. Then the last buffer is written, end 
of file housekeeping is performed, and control is returned. 



vrr r .f,6 



Pln;r,KAM: CNVT 
.SUHHOUTrNE : PUNCllSC 



SOT'TWARi: INTiiKPACi; (PUNCUSC) 

A. LINKAGE 

Linkage to PUNCHSC is obtained via a 
BAL,R7 PUNCHSC 

Mhcve the parameter list described below immediately 
follows the BAL instruction. 

B. PARAMETER LIST DESCRIPTION 

DATA WA(L.C. CARD NO.) 
-DAI A WA( LIBRARY CODE) 

C. RETURN CODE - none 

D. OTHER ENTRY POINTS - CLOSESC 

i:. OCLC SUBROUTINES REFERENCED - none 
F. OCLC PROCEDURES REFERENCED - none 
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PROGRAM: CNVT 
SUBROUTINE: PUNCH 



:;oFTWARr, iNTCRFAcr; (closesc) 

A. i,im<A^;i; 

nAi,,K7 CLu;;i;sc 

B. I'ARAMCTCR LIST DESCRIPTION - none 

C. RETURN CODES - none 

D. OTHER ENTRY POINTS - none 

i:. OCLC SUBROUTINES REFERENCED - none 
F. OCLC PROCEDURES REFERENCED - none 
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SUBROUTINE: i.CCmoO 



l.f'NOnn l)rv?aks >i oa]l numnrr Into components to aid in 
tlit_ I oi'mattin.i-i; of the call number. A code set at the entry 
(K.Ini (Jetprnines the type of call number which has oeen 
input. At LCCNOOO, the code is set to zero; at LCCNOOOB, 
the coi\v is set to four; at LCi^NOOOD, the code is set 
to two; and at LCCNOOOT, the code is set to one. U 50n 
entry to either LCCNGOO , LCCNOOOB, LCCNOOOD, or LCCNOOO i', 
R8 point r. to a parameter list which contains the byte address 
of the inTMit call number. The second word of the parameter 
lir. t ir. +iie oyte address of a work area. 

LCCNOOO scans and interrogates the call number using a 
set of internal pi-ocedures. The comDon.ents to be broken 
down by LPCNOOG are as follows: 

0 - A -A ring, of alphas, followed by a blank, which precedes 

the rest of the cal] number. 

1 - Alpha portion of the Library of Congress class number. 

2 - Numeric portion of the Library of Congress class number. 

3 - Deeimal portion of the Library of Congress class number. 
U - Date typo element that precedes the first Cutter. In 

reality this is any field preceded by a blank which 
precedes the first Cutter. 

5 - I'irst Cutter. It must begin with a decimal followed 

by an alpha strinp, and a numeric string. 

6 - nat(>_type element that precedes the second Cutter. In 

reality this is any field preceded by a blank which 
m-ecedes the second Cutter. 

7 - Second Cutter. It is preceded by a decimal if component 

6 IS present; otherwise it immediately follows the first 
Cutter. The second Cutter is a numeric string followed 
by an alpha string. 
8-2S4 These components are variable in format. Bit 7 of 
the component number sot to 1 indicates an element 
followed by a comma. 

(•oni|.<>„.>nt ?SS always marks the end of the call number in 
tiie work area. 

When ,in error is encountered in the format of the call 
number, the condition code is set and control is i-eturned 
to CNVT. ui ne 

As each component of the call number is found, it is 
stored in the workarea preceded by its component number. 
When the end of the call number field is encountered, if all 
required components are present, control is returned normally. 
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PPOGRAM: CNVT 
SUBROUTINE: LCCNGOO 



I 'A) 
A. 



r. 



n. 

r. 



TWARi: TN TfiRrACL 
1,1 , 1'fi I.CCNPARM 

r.Al,,K7 l.crNOOn (or LCCNOOOB, I.CCNOOOD, or I.CCNOOOT) 



\AKAMf:TL;H LIST DKSCRTPTION 
LCCNl'ARM DATA 
DATA 



BA(05Q FIELD) o^- 090 FIELD IF 
PRESEKT 

BA(WORKAREA) AREA WHERE FORMATTED 
CALL NO. WILL BE RETURNED 



RI7"UKN CODES 



LuTflOOO, LCCNOOOB, l.CCNOOGD, 8 LCCNOOOT set the condition code 
ar. foJ lowG : 

rC.l - It = 0 NORMAL RETURN 

CC:^ = 1 DEFAULT TO UNIT CARD 

COM - ] BREAKDOWN WAS UNSUCCESSFUL 

OTHER ENTRY POINTS 

LCCNOOOB 
LCCNOOOD 
LCCNOOOT 

OCLC SUBROUTINES REFERENCED - none 
OCLC PROCEDURES REFERENCED - 



NEXT 

BACK 

SPAN 

POWER 

ANY 

SAVE 

MARK 

OPT 

ALPHA1 

NUMER 

POINT 

BLANK ' 

TERMN 

COMMA. 

BREAK 



Different name values for the 
Game procedure 



F^ROGRAM: CNVT 
VIjX.70 SUBROUTIME: LCuWo'^O 

PROCEDURE: NEXT 

i'HtJCLDURl iJlXJcMUITlON 

I tM1^i;,;i, : [ji.XT i\vn<^ratci. ^ HAI,,K7 :NXT where: NXT is an 
internal subroutlru' ol LCCNOOO 

IMKMAT: Ni:X'J No oj^ei-anclG arc required 

LXAMPLL: IJEXT 

*- BAL,R7 :NXT 
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PROGRAM: CNV7 
SUBROUTINL: LCCNOO 
PROCEDURE: BACK 



PROCEDURE DESCRIPTION 

PURPOSE: BACK sets up a parameter value and provides a 

link via R7 to the internal subroutine :BCK. 
If the value of Ar( 1) is less than two, a BAL,R7 
:BCK-1 is generated. If AF(1) is loaded into 
R14 and a BAL,R7 : BCK is generated. 

FORMAT: BACK AFC 1) 

EXAMPLE 1: 

Back UD one character. 

BACK AL where' AL=1 

+ BAL,R7 :BCK+1 

EXAMPLE 2: 

Back up four characters 



BACK FO where P0=4 

LI,R14 4 
BAL,R7 :BCK 
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PROGRAM: CNVT 
SUBROUTINE: LCGNGOO 
PROCEDURE: SPAN 



PR Ot^nPURi: DCSCRIPTION 

PURPOSE: SPAN sets up a parameter value and links to 
internal subrouline :PWR-1 via R7 . is 
loaded with the argument field. Its range of 
values IS fho table CHARVAL. 

FORMAT: SPAN AF(1) 

EXAMPLE': Scan to the next non-numeric character. 

SPAN NU where NU = char value for a 

numeric in CHARVAL 

+ LI, 114 .2 

+ BAL,R7 :PWR -1 
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PROGRAM: CNVT 
SUBROUTINE: LCCNOOu 
PROCEDURE: POWEP 



PROCPDU R l". nCfJCRIPTIGN 

PURPOSE: POWER sets up a counter in R13 from AF(2) and 
a valuG in R14 from AF(1); then links to the internal 
subroutine rPWR. On return from rPWR, an unconditional 
branch is taken. The effective address of the branch is 
determined by the value of AFC 3) and AFC 5). If AFC 3) =1 
and AFC5) =0 a B $+2 is generated. If AFC 3) =0 and AFC 5) =1, 
three instructions are generated: 

B 0 + 2 
B $+3 

BAL,R7 :RST 

If AFC 5) =1 an unconditional branch to AFC 4) is generated. 

FORMAT: POWER AFC 1) , afC 2 ) ,AFC 3 ) , AFC4 ) ,AFC 5 ) 

EXAMPLE: Scan to see if there is a blank in the next 4 
characters. If so, branch to T4 . If not, restore Rl 
and branch to T4 . 

POWER BL,P0,N0,T4 
+ LI,R13 4 
+ LI,R14 8 
+ 3AL,R7 rPWR 
+ B $ + 2 

+ B $ + 3 

+ BAL,R7 :RST 
+ B T4 

EXAMPLE 2: Scan to see if there is a blank in the next 

four characters. If not, skip the branch to T4 and continue 
with the next sequential instruction. If so, branch 
to T4. 

POWER BL,PO,Yl^y >Tit 
+ LI,R13 4 

+ LI,R14 8 ^ 
+ BAL,R7 :PWR 
+ B $ + 2 

+ B T4 
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SUPROb'TrNE: l.r : . 
PRCCEDURr:: ANY 



'■|M^('!:])iiKi: ni :,('ki rn'i on 



^I'l'-":-!.: ANY .-.^mparo:; (!u^ oliarvicler valu.- which i. It, K 1 

'"i'^i^;.v^'luo or a oomlanalion of Lab Lo values I AIX I) J 

oa.js ot AH2) which ha:, tlie value U or 1 and the presence 

FORMAT: ANY AFCl), Ar(2), AFO), AF(4) 

EXAMPLL: Is next character a period or a blank- 
ANY P0/BL,NO,ABT 



+ C 1 , 1 5 

+ I'.AZ 



12 
ABT 



where PO = 'i 
BI, = 8 
NO = 1 



otherS,-.'^''^r>}\!:^^ neither, branch to ABT, 

otherwioc^ fall through to the next sequential instruction 
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PROGRAM: CN^T 
SUBROUTINE: U.'CNUuO 
PROCEDURE: ;:AVi: 



I'KUCKiX J RK iMJSCRlP 'l'LON 

lURPOfU:: DAVL generates a STW,1 :SAVE instruction to sav^ 
the pointer to the current location in the TEMP 

FORMAT:^ SAVE 

EXAMPLE: SAVE 

+ STW,R1 :SAVE 
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PROGRAM: CNVT 
SUBROUTINE: LCCNOOG 
PROCEDURE: MARK 



r 



PROCEDURE DESCRIPTION 

I'UKPOSr : MARK sets up the component number and links to the 
routine :MRK which will move the component to 
WORKAREA. 



FORMAT : 
EXAMPLE 



MARK 



AF(1) 



MARK 1 
+ LI , 14 1 
+ BAL,R7 :MRK 



Mark component #1 and move it to the WORKAREA 



VITI .77 



PROGRAM: CNVT 
SUBROUTINE: LCCNOOO 
PROCEDURE: OPT 



PROCEDURK DESCRIPTION 

PURPOSE: OPT interrogates the next sequential character 
value. If it is not equal to AF(1) a branch 
is taken to $+2. If the character value is 
equal to AF(1), a BAL,R7 :NXT is taken. 

FORMAT: OPT AF(1) 



EXAMPLE: Is the next character a blank. If so, look at 
following character. 



OPT BL 

+ CI, 15 8 

+ BAZ $+2 

+ BAL,R7 :NXT 



a 



PROGRAM: CNVT 
VITT.78 SUBROUTINE: LCCNOOO 

PROCEDURE: ALPHA 



PROCEDURL DESCRIPTION 

PURPOSE: ALPHA compares the character value in R15 to 

its name value shifted left one position (1^*«*NAME). 
The shifted name value equals the alpha character 
value from the table CHARVAL. Tne conditions of 
the succeeding branch instruction are generated 
depending on the value of AF(1) which may be 0 or 1 
and the presence or absence of AF(3). If AF(3) is 
absent, the effective address of the branch is AF(2) 
If the branch is not taken, the next sequential 
instruction is executed. If AF(3) is present the 
effective address of the generated branch is $+3. 
If the branch is not taken, the next instruction is 
a BAL,R7 : RST followed by an unconditional branch 
to AF(2) . 

ITiere are five alternate names that may be used 
to invoke this procedure. 



NUMER 
POINT 
BLANK 
TERMN 
COMMA 



its name value equals the numeric character 
value 

its name value equals the character value 

for a period 
its name value equals the character value 

for a blank 
its name value equals the character value 

for a field delimiter 
its name value equals the character value 
for a comma 



FORMAT: 



These procedures are used to interrogate the value 
of a character. 

ALPHA AF(1), AF(2), AF(3) 



EXAMPLE 1: Is the character in question numeric. If not, 
declare an error. 



NUMER 
CI, 15 
BAZ 



NO,ABT 
2 

ABT 



where no 



0 



EXAMPLE 2: Is the character alpha. If it is skip around; 

if not restore Rl to previous character and branch 
to T8 



+ 
+ 
+ 
+ 



ALPHA 
CI, 15 
BANZ 
BAL,7 

B 



NO, T8, REST 
1 

$+3 

:RST 

T8 



where no = 0 and REST 
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PROGRAM: C 
SU'"^ ROUTINE: 
PROCEDURE: 



CNVT 



LCC^'ouo 

BREAK 



PKU CLiDU Hi : iJt:: : CRLPTION 
PURiH):]i; : 

HK1:AK i.vt:. up a para'ncter value and links to the internal 
r,ubroutine, :i-,RK. kl4 Is loaded with AF(1). Its range of 
vali,'.;s LG equal to the range of values in the table CHARVAL. 

FORMAT: BREAK AF(1) 



EXAMPLE: 



Scan to find the .ext numeric character. 



BREAK 



where NU = CHAR, value 
for a numeric is CHARVAL 



+ 
+ 



LI, 14 2 
BAL,R7 :BRK 
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PROGRAM: CNVT 
SUBROUTINE: TREES 
(NODETBL) 

rUNCTiONS 



Trees (entry point, NODETBL) is a large table of index 
values to processing routines within CNVT. The trees consist 
oi nodes, leaves, and tests wliich are generated by the pro- 
cedures , NODE, LEAF, and TEST. The initial index into 
NODETBL is obtained from the profile definition table for 
a member hr'iding library. 

Each NODE has as the first argument field the number 
of leaves in its particular tree. The minimum is two and 
the maximum is thirteen leaves. The second argument field 
is the address of the first leaf in the tree. The leaves 
are picked up sequentially beginning with the leaf indicated 
by the secon i argument field. If any nodes ar^i encountered 
in the list, they are expanded in place. 

A TEST causes a check to be made on a switch in CNVT 
and a choice of entries to be made base^d qn the value of 
the swirch. When a TEST is encountered, the value of argu- 
ment field (1) tells which loop switch in CNVT is to be 
tested. Argument field (2) gives the address of the first 
of the two alternate entries. If the switch tested is set, 
the first alternative is selected; if the switch is not set, 
the second alternative is selected. The alternatives may 
be nodes or leaves. 

The first argument field of a LEAF is an index into a 
table of routines called EXUTBL. The second argument field 
is used as an indicator within the routine set up by EXUTBL. 
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PROGRAM: CNVT 
SUBROUTINE: TREES 
(NODETBL) 



SOFTWARE INTERFACE 

A. LINKAGE - not applicable 

1^ . Parameter List Description - none 

C. Return Codes - none 

D. Other Entry Points - none 

E. OCLC Subroutines Referenced 

F. OCLC Procedures Referenced 

NODE 
LEAF 
TEST 
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PROGRAM: CNVT 
SUBROUTINE: TREES 

(NODETBL) 
PROCEDURE: NODE 

PKOClDURI: DFSCRIPT I gi^ 



PURPOSE: 

The purpose of the procedure NODE is to generate a 
word in NODETBL which indicates the number of leaves to be 
picked up from NODETBL and where in the table to find the 
leaves . 

There are two alternate names for this procedure, 
TEST and LEAF. The CNAME value assigned to each name indi- 
cates to the processing program which type of entry in 
NODETBL it is using. 

NODE has a CNAME value of 8. TEST has a CNAME value of 
4. TEST is used to generate a word which indicates a switch 
to be tested. It also includes the location in NODETBL 
for the two alternative branches to be taken depending on 
the value of the switch. 

LEAF has a CNAME value of 0. It generates a wori 
which contains an index value into the table 'EXUTBL' in 
CNVT. Also included in the word is an indicator to be 
passed to the routine pointed to in EXUTBL. 

FORMAT : 

NODE AF(1) , AF(2) 

EXAMPLE 1: 

NODE 10, jS(100. . 
+ GEN, 4, 12, 16 8,10,jS(100 

CNVT will pick up ten entries in NODETBL beginning with 

#100. 

EXAMPLE 2: 

TEST 2,)ill000 
+ GEN, 4, 12, 16 4,2,jS(1000 

CNVT will test loop switch 2. If the switch is set, 
the first entry at #1000 is selected. If the switch is not 
set, the second entry at #1000 is selected.' 

EXAMPLE 3: 

LEAF 6 5,1 
+ GEN, 4, 12, 16 0,65,1 

CNVT will execute che load instruction at ' EXUTBL' +BB. 
Ilic value 1 will be passed to the processing routine. 
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APPENDIX 

ADDITIONAL PROCEDURK DOCUMENTATION 
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PROGRAM: CNVT 
PROCEDURE: WRTMSG 



PROCEDURE DESCRIPTION 
PURPOSE: 

WRTMSG establishes parameters and links to the external sub- 
routine LOGMSG. The CNAME value of WRTMSG is 0 and indicates 
to LOGMSG that a single message is to be printed. There ace 
four alternate names for WRTMSG. 

WRT3ELD - has a CNAME value equal to 1 and indicates that 
a request is to be logged as selected. 

WRTMISS - has a CNAME value of 2 and indicates that an 
OCLC number is to be logged as missing. 

WRTRJD - has a CNAME value of 3 and indicates that a 
request is to be logged as rejected. 

WRTEJECT - has a CNAME value of 15 and indicates that the 

page is to be ejected when printing the message. 

FORMAT : 

WRTMSG AF(1) 

EXAMPLE 1: 

WRTMSG STATHEAD 

+ BAL,R7 LOGMSG 

+ GEN , 8 , 2 H 0 , BA( STATHEAD) 

+ DATA MS GP ARMS 

EXAMPLE 2: 

WRTSELD 

+ BAL,R7 LOGMSG 

+ GEN,8,2H 1,0 ■ 
+ DATA MS GP ARMS 
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PROGRAM: CNVT 
PROCEDURE: PUN CHS LD 



I'ROC^^OUR}: DL3CRIPTI0N 
PURPOSE: 

PUNCHSLD checks to see if any select cards are to be punched. 
If so, a BAL to PUNCHSC is taken to punch the cards for a call 
number. Also included in PUNCHSLD are the parameters for 
PUNCHSC. 

FORMAT: 

PUNCHSLD 
EXAMPLE: 

PUNCHSLD 

+ LW,R7 STATSW 

+ BGZ $+4 

+ BAL,R7 PUNCHSC 

+ DATA UNPACKED WA( UNPACKED LC CARD NO.) 

+ DATE LASTLIB WA( LIBRARY CODE) 



VI II. 86 



PROGRAM: CNVT 
PROCEDURE: ATBL 



PROCEDURE DESCRIPTION 
PURPOSE: 

ATBL builds entries in the table TBLA. Ecch entry con- 
sists of a displacement and an address which v;ill be the effec- 
tive address of a branch instruction. 



FORMAT : 

ATBL 



AF(1), AF(2) 



EXAMPLE 1: ATBL 



+ 
+ 
+ 
+ 



0RG,1 
DATA,1 
ORG 
B 



EXAMPLE 2: ATBL 

+ 0RG,1 
+ DATA,1 
+ ORG 

+ R 



015, ALOW 

BA(ITBL)+15 

0 

TRLA+0 
ALOW 



BA(ITBL)+20 
1 

TBLA+1 
ALOW 
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PROGRAM: CNVT 
PROCEDURE: NOTE 



P ROCEDURE DESCRIPTION 
PURPOSE: 

NOTE: advances the location counter 1 byte. 
FORMAT : 

NOTE: 

EXAMPLE 

NOTE: 
+ BOUND 1 



ERIC 



EXAMPLES 



APPENDIX F 
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0^ 



llii i vt»T':; i ty example - 



It is found that Ohlci IJnivercitv 



u: 



tlu' deftiult (ipocessoi'S ot iUAJ}] 1 and Yi:i,I/)W 
("(HUpcW luu'tLon 'TKnUS', i! i d found tl\at a 
Ion instruction:; beginnin>^. with <^100 ; and a 
ten instiHictions beginning with #110 • BLUE 
following instructions: 



I • From I he 
l^[,lin L takes 
YLLLOW ] take; 
1 yields the 



LEAF 


1,0 


LEAF 


3,0 


LEAF 


4,0 


LEAF 


5 ,0 


LEAF 


6 ,0 


LEAF 


7,0 


LEAF 


8 ,0 


LEAF 


9 ,0 


LEAF 


2,0 


NODE 


9 ,#111 



LEAF 
LEAF 
LEAF 
LEAF 
LEAF 
LEAF 
LEAF 
LEAF 
LEAF 



11,0 
12,0 
13,0 
14,0 
15,0 
16 ,0 
17,0 
18,0 
25,0 



The first number in the argument field of the 'NODE' 
instruction tells how many instructions to take and the 
second number tells from where to start taking them. Thos 
instructions at that location replace the original 'NODE' 
instruction. 



The first number in the argument field of a 'LEAF' 
instruction is an index into the table 'EXUTBL' from which 
the addresses of the formatting routines are pushed into 
a stack. To format the call number for Ohio University, 
the following routines are used in order: 
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1 • J 


o • 


iinnn 
UUUU 


^ • / 


i . 

n3 • 


Tin n 1 

u U U 1 




'3 . 
O • 


nn n 9 




Q . 
O • 


U U U 0 


5 ) 


Q . 
o • 


nn n u 

U U U H 




O • 


nn n 

UU U 0 


7 ) 


• 


nn n R 

UU U D 


ft 


'3 . 
O • 


iin n 7 
uuu / 


9.) 


3: 


U008 


10. ) 


H : 


UOOl 


11. ) 


I: 


U002 


12). 


H: 


U003 


13. ) 




UOOH 


14.) 




U005 


15. ) 




UlOl 


16. ) 




U999 


17. ) 


X: 


UOOO 



This will process a call number in this manner: 

TDT STAMP 
NON-PDT STAMP # 1 
AB 

123.45 

1962 
C78 
1979 
D96 

NON-PDT STAMP '42 

With no user data automatically supplied, no automatic 
oversize symbol, and no special tag processors. 
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3:U00I8 



I 
I 
I 



/^A. A.v^' /lYv 
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3:U/ip3 




3:U004 





/I 




ERIC 



3:U005 




&f rt i^LnDJAjf- 



(0(K 



(5 



3:U006 




(Move -cr To 




j 
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3:11^0 7 



3:U008 




/ U{ /' j'i f ^ 








A\L- /I 




U:U001 



■n LALK n>. 



4:U002 




ERIC 
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4:U999 



X:U£I01 



4 



X:U000 



